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ABSTRACT 


THIS DIAGNOSTIC TESTS THE RH7@ AND DCL OF AN RPOS SUBSYSTEM, 
IT DOES NOT USE THE DISK SURFACE OR ANY SIGNALS FROM THE MDLI, 
IT REQUIRES THAT THE DCL CABLE BE PLUGGED INTO THE MDLI OR 

BE APPROPIATELY TERMINATED, IF THE DISK I8 POWERED UP, IT 

IS REQUIRED TO GET THE DISK TO THE “HEADS UNLOADED® POSITION, 
AFTER A SUCCESSFUL RUN (WITH NO ERRORS) OF THIS DIAGNOSTIC 

IT CAN BE ASSERTED THAT, "THAT PART OF THE DCL THAT HANDLES 
DATA OR DATA ASSOCIATED LOGIC I8 WORKING PROPERLY", THIS 
IMPLIES THAT, THAT PART OF THE LOGIC WHICK HANDLES MECHANICAL 
COMMANDS OR ITS ASSOCIATED LOGIC I6 NOT TESTED IN THIS 
DIAGNOSTIC, ALL DATA COMMANDS USE THE MAINTENANCE REGISTER 
IN THE WRAPAROUND MODE, 


REQUIREMENTS 

EQUIPMENT 

PDPei1 COMPUTER WITH CONSOLE TELETYPE, AND A RPO4 DISK SYSTEM, 
THE RPO< DISK SYSTEM WILL CONSIST OF AN RH7@ CONTROLLER, 

A DISK CONTROL LOGIC (DCL), THE CABLE FROM THE DCL CAN BE 
CONNECTED TO THE MDLI BUT IF NOT THAT CABLE MUST BE PROPERLY 
TERMINATED, 

STORAGE 

THIS PROGRAM REQUIRES 16K WORDS OF MEMORY, 

PRELIMINARY PROGRAMS 


THIS PROGRAM ASSUMES THAT MAINDECe11°¢DERPSTe 
(LATEST REV) HAS BEEN RUN WITHOUT ERRORS 


LOADING PROCEDURE 

USE STANDARD PROCEDURE FOR LOADING ,ABS TAPES 
STARTING PROCEDURE 

CONTROL SWITCH SETTINGS 

SEE SECTION S,1 

STARTING ADDRESS 


START AT ADDRESS 200ceeFOR NORMAL RUN 
START AT ADDRESS 218¢eeeFOR UNIT SELECTION 


200 START 

ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN, WITH THIg 
STARTING ADDRESS ALL THE RPO4S ON THE SYSTEM WILL BE 
TESTED ONE AT A TINE BEFORE "END PASS*® I6 PRINTED OUT, 
TESTING WILL START WITH THE LOWEST UNIT NUMBER DRIVE 


THAT IS POWERED UP (THAT I8 THE LOWEST UNIT NUMBER RHAS REGISTER 


THAT RESPONDS)THEN GO ON TO THE NEXT HIGHER UNIT NUMBER 
THAT IS POWERED UP, 


210 START 
ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN, WITH THIS 


(4) 


STARTING ADDRESS THE CONSOLE TELETYPE WILL ASK FOR THE UNIT 
NUMBER TO BE TESTED, THEN ONLY THAT UNIT WILL BE TESTED 
FOR EACH PASS OF THE PROGRAM, 


4,3 PROGRAM AND/OR OPERATOR ACTION 
1, LOAD THE PROGRAM INTO MEMORY, 
2. SET STARTING ADDRESS ON THE SWITCH REGISTER 
3, PRESS "LOAD ADDRESS", 


4. SET “OPERATIONAL SWITCH SETTINGS" (SEE SECTION S,1) 
WORST CASE I6 ALL SWITCHES DOWN, 


5S. PRESS "START", 


6, FOR THE FIRST PASS EACH TEST WILL BE EXECUTED ONCE 
ON THE DRIVES PRESENT OR DRIVE SELECTED BEFORE "END 
PASS* IS PRINTED, THE FIRST PASS WILL REQUIRE OPERATOR 
INTERVENTION IF THE PROGRAM IS NOT RUN UNDER AN "ACToi4* 
MONITOR, THE SECOND AND SUBSEQUENT PASSES WILL EXECUTE 
EACH TEST FOUR TIMES ON EACH DRIVES PRESENT OR DRIVE 
SELECTED SEPORE "END PASS" IS PRINTED, THE SECOND 
AND SUBSEQUENT PASSED DO NOT NEED ANY OPERATOR INTERVENTION, 


5,0 OPERATING PROCEDURE 
5,1 OPERATIONAL SWITCH SETTINGS 


SWITCH DEFINITIONS ARE GIVEN IN SECTION 9 "OPERATIONAL 
SWITCH SETTINGS" HOWEVER THE DETAIL DESCRIPTION ARE GIVEN 
HERE, 


SWITCH 15 © HALT OWN ERROR 

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR 
THEN THE APPROPIATE INFORMATION WILL BE PRINTED OUT 

AND THEN THE PROGRAM WILL HALT, AFTER THIS HALT, PRESSING 
"CONTINUE® WILL CONTINUE WITH THE PROGRAM TILL THE NEXT 
ERROR IS FOUND WHEN THE SAME THING WILL HAPPEN, 


SWITCH 14 © LOOP ON TEST 

WHEN THI§ SWITCH IS SET THE PROGRAM WILL BEGIN TO LOOP 
ON THE CURRENT TEST BEING EXECUTED, FOR EXAMPLE IF THIS 
S*ITCH IS SET WHEN THE PROGRAM Ig IN TEST 49 THEN THE 
PROGRAM WILL KEEP EXECUTING ALL OF TEST 49 REPEATEDLY, 
ONE WAY TO BE SURE THAT THE PROGRAM I8 IN THE EXPECTED 
TEST IS TO SET THIS SWITCH nce AN ERROR PRINTOUT OR 
DURING A PROGRAM HALT, 


SWITCH 13 © INHIBIT ERROR TYPEOUTS 

WHEN THIS SWITCH I8 SET FURTHER ERROR PRINTOUTS WILL 

CEASE, HOWEVER OPERATOR INSTRUCTIONS SUCH AS "STOP DRIVE X®* 
WILL CONTINUE, AT THE END OF PASS "TOTAL NUMBER OF ERRORS 
ON THIS PASS ON DRIVE X* WILL BE TRUE, THAT 18, ALTHOUGH 
PRINTOUTS WERE INHIBITED IF THAT PASS FOUND 6 ERRORS, 

IT WILL SAY 60, 


SWITCH 11 © INHIBIT ITERATIONS 
WHEN THIS SWITCH IS SET THE PROGRAM ON SECOND PASS WILL 


8 EEEeEeEeEeEeEe—e—E———EeEeEeEeEEEEGVEGVG7“*__eeS 
a A 


NOT REPEAT EACH TEST FOUR TIMES BUT WILL DO EACH TEST 
ONCE ONLY, 


SWITCH 18 © BELL ON ERROR 

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR 

THE "BELL" OR "ALARM® WILL BE SOUNDED, THIS SWITCH I8 USEFUL 
WHEN SWITCH 41 IS SET YET INFORMATION I8 NEEDED WHEN ANY ERROR 

IS DETECTED, TAKE THE EXAMPLE OF A PROGRAM LOOPING ON A TEST WITH 
S#ITCH 11 SET TO HELP SCOPING, THEN IF THIS SWITCH Is 

SET AND THE BELL OR ALARM SOUNDS IT MEANS THAT THE ERROR 

IS PRESENT BUT IF THE BELL OR ALARM STOPS IT MEANS THAT 

THE ERROR IS NOT PRESENT, 


SWITCH 9 © LOOP ON ERROR 

WHEN THIS SWITCH I8 SET, IF THE PROGRAM FINDS AN ERROR 

THEN GENERALLY THE PROGRAM WILL LOOP BACK TO THE LAST 
EXECUTED "SCOPE* STATEMENT, IF ON THE SECOND TIME 

THROUGH AN ERROR 16 FOUND IT WILL AGAIN LOOP BACK TO 

THAT "“SCOPE® STATEMENT, THIS LOOPING WILL CONTINUE AS LONG 
AS THE ERROR 18 PRESENT AND THIG SWITCH Ig SET, HOWEVER 

IF THE ERROR 18 NOT PRESENT AT ANY TIME THEN IT WILL 
CONTINUE NORMALLY WITH THE PROGRAM, EACH TIME THE ERROR 

IS ENCOUNTERED PRINTOUT WILL TAKE PLACE UNLESS SWITCH 11 

IS ALSO SET, DURING BEGUG, USING A SCOPE, IT I8 RECOMMENDED 
THAT SWITCH 141 I8 ALSO SET, 


NOTEs ALSO SEE SECTION 6,3 


SWITCH 6 © LOOP ON TEST IN SWR <736> 

THIS IS A SPECIAL SWITCH, WHEN SET SWITCHES © THRU 7 
HAVE ONE MEANING AND WHEN RESET SWITCHES © THRU 7 HAVE 
ANOTHER MEANING, THIS MEANS THAT ANY SETTING OF SWITCH 

@ THRU 7 MUST BE DOWE WITH SWITCH 8 IN THE APPROPIATE 
POSITION, WHEN THIS SWITCH I8 SET THEN SWITCHES © THRU 

+ GIVE THE TEST NUMBER TO BE LOOPED ON, FOR EXAMPLE 

WITH SWITCH @ SET AND SWITCH 3 SET THE PROGRAM WILL LOOP 
ON TEST 10, HOWEVER THIS SETTING MUST BE DONE AT THE 
BEGINNING OF THE PROGRAM THEN ALL THE TESTS FROM 1 TO 16 
WILL BE EXECUTED AND THEN TEST 16 WILL BE REPEATED OVER 
AND OVER AGAIN, WHEN THIS SWITCH I8 NOT SET THEN SWITCHES 
@ THRU 7 HAVE THE MEAING ITS NAME INDICATES, 

FOR EXAMPLE SWITCH 7 I8 *STOP FURTHER COMPARES: THAT 18 
IF SWITCH @ I8 NOT SET AND SWITCH 7 IS SET THEN WHEN A 
DATA ERROR I6 DETECTED WO FURTHER COMPARES WILL BE DONE, 
FOR EXAMPLE IN A 256 WORD BUFFER IF ALL THE WORDS ARE IN 
ERROR THEN AFTER SEEING THE PRINTOUT FOR THE FIRET FEW 
WORDS SETTING SWITCH 7 ONLY WILL STOP FURTHER PRINTOUTS 
OF THIS ERROR AND GO ON WITH THE TEST RATHER THAN PRINT 
ALL THE 256 WORDS, HOWEVER IF THIS WAS DOWE WITH SWITCH 44 
THEN THE NEXT ERROR THAT THE PROGRAM DETECTS IN A SUBe 
SEQUENT TEST WILL ALSO BE LOST, BUT WITH SWITCH 7, ONLY 
THIS GROUP OF DATA ERRORS ARE NOT PRINTED OUT, ANOTHER 
EXAMPLE OF SWITCH @ BEING LOW I8 WITH SWITCH 6, WHICH 

1S "ECC TESTeCOMPARE END RESULT ONLY®, THAT I8 IF SWITCH 
8 IS NOT SET AND SWITCH 6 IS SET THEN ON ECC TESTS (TEST 
12@ THRU TEST 134) INSTEAD OF COKPARING CONTENTS OF THE 
POSITION REGISTER AND PATTERN REGISTER AFTER EVERY CLOCK, 


El 
Meee en NNN nnn Innes 





COMPARES “ILL ONLY BE DONE AT THE END OF ALL THE CLOCKS, 
NOTE: ALSO SEE SECTION 8,3 


SWITCH 7 © STOP FURTHER COMPARES IF Swee IS LOW, 

IF SWITCH @ IS SET AND THIS SWITCH I8 ALSO SET THEN THIS 
SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON AS INDICATED 
IN THE DESCRIPTION OF SWITCH 8, IF SWITCH 8 IS NOT SET 

AND THIS SWITCH I8 SET THEN THE PROGRAM WILL DO AS THE 

NAME INDICATES, FOR EXAMPLE IN A 256 WORD BUFFER IF ALL 
THE WORDS ARE IN ERROR THEN AFTER SEEING THE ERROR PRINTOUTS 
FOR THE FIRST FEW WORDS THEN SETTING SWITCH 7 WITH SWITCH 6 
NOT SET WILL STOP THE PRINTOUT OF ALL 256 WORDS BUT WILL 
NOT STOP THE PRINTOUT OF ANOTHER ERROR IN ANY SUBSEQUENT 
Test, IT IS EXPECTED THAT SWITCH 7 AFTER BEING SET FOR 

A WHILE TO STOP PRINTING ALL THE 256 WORDS WILL BE RESET 
AGAIN TO ENABLE THE PRINTING OF OTHER DATA ERRORS, 


SWITCH 6 © ECC TEST°COMPARE END RESULTS ONLY IF SwO8 IS LOW 
IF SWITCH @ IS SET AND THIS SWITCH IS ALSO SET THEN THIs 
SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON Ag INDICATED 
IN THE DESCRIPTION OF SWITCH 8, IF SWITCH 6 IS NOT SET 

AND THIS SWITCH IS SET THEN ON ECC TESTS (TEST 120 THRU 
TEST 134) INSTEAD OF COMPARING CONTENTS OF THE POSITION AND 
PATTERN REGISTERS AFTER EVERY CLOCK, COMPARES WILL BE DONE 
ONLY AT THE END OF ALL THE CLOCKS, 


5,2 SUBeROUTINE ABSTRACTS 
SEE SECTION 9 *SUBROUTINES® 
6,2 ERRORS 


ERROR PRINTOUTS CONTAIN THE ERROR ADDRESS AND OTHER 
PERTINENT INFORMATION CONCERNING THE PARTICULAR FAILURE, 
THIS INFORMATION MAY BE THE CONTENTS OF RELEVANT RPOS 
REGISTERS OR GOOD/RECEIVED DATA, IF THE ERROR OCCURRED IN A 
SUBROUTINE, THE ADDRESS OF THE SUBROUTINE CALL Ig ALSO 
GIVEN, REFER TO THE PROGRAM LISTING AT THE STATED 

ADDRESS TO DETERMINE THE CAUSE OF THE ERROR, 


7,0 RESTRICTIONS 
IF THERE IS A DRIVE CONNECTED THEN THE OPERATOR MUST HAVE 
THE DRIVE PORT SWITCH LOCKED EITHER ON PORT A OR PORT B 
BUT NEVER LEAVE IT IN THE PROGRAMMABLE STATE, IF THERE 
1S NO DRIVE CONNECTED THEN THE CABLE NORMALLY GOING FROM 
THE DCL TO THE MDLI MUST BE PROPERLY TERMINATED, 

8,2 MISCELLANEOUS 

8,1 EXECUTION TIME 


THE FIRST PASS OF THE PROGRAM WILL TAKE 1,75 MINUTES PER 
DRIVE, SUBSEQUENT PASSES WILL TAKE 7 MINUTE, 


Fl 
RR LR 


8,3 


STACK POINTER 
THE STACK 18 INITIALLY SET TO 1000 
OPERATOR SELECTABLE SCOPE LOOPS 


HERE IS A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS, 
ON HITTING AN ERROR IF THE LOOP ON ERROR SWITCH 18 SET, THE 
PROGRAM GOES BACK © USUALLY BACK TO THE BEGINNING OF THE TEST, 


WHEN THIS OPERATOR SELECTABLE SCOPE LOOP I8 USED THEN THE POINT 
THE PROGRAM GOES BACK TO CAN BE CHANGED, 

THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE: © 

1. IT MUST BE WITHIN THE TEST UNDER CONSIDERATION 

2. LOOP ON ERROR SWITCH MUST BE SET 

3, THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION 

IF THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION 
THE PROGRAM WILL REVERT TO NORMAL OPERATION, HOWEVER, IF LOOP ON 
TEST SWITCH IS SET AND THIS OPERATOR SELECTABLE SCOPE LOOP I8S USED 
THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT 
COMES TO THE END OF THE TEST UNDER CONSIDERATION, 


AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
NORMAL OPERATION WILL CONTINUE, 


PROGRAM DESCRIPTION 
THE FOLLOWING SECTIONS DESCRIBE EACH TEST AND SUBROUTINES 


IN DETAIL AND CAN ALSO BE USED AS AN INDEX TO THE LISTING, 
THE LEFT MOST COLUMN I6 THE LINE NUMBER WITHIN THE LISTING 


, WHERE THAT ITEM WILL BE FOUND, 
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THIS PROGRAM WAS ASSEMBLED USING THE PDPeii MAINDEC SYSMAC 
PACKAGE (MAINDEC*{1eDZQACA3), 


OO EOOOOSSSOSSSEOEEOCEOEOSEOOSS OOOOH HU SHOSOSOSOHCOHOSHEOSOOOEEEOSS 
13 OPERATIONAL SWITCH SETTINGS 
SOOOOOHSSOEEOHOOSEHELEOHEODOCSOO HOH OOOOCOEESOOOHOHEOOOOOHOCOESOES 


16eO0CTe74 17848 


i4 
Switch USE 
eeecee SSSSSeeseosesoesaeceso 

is HALT OW ERROR 

14 LOOP ON TEST 

13 INHIBIT ERROR TYPEOUTS 

ii INHIBIT ITERATIONS 

16 BELL ON ERROR 

9 LOOP ON ERROR 

8 LOOP ON TEST IN SWR<750> 

7 STOP FURTHER COMPARES if swee Ig LOW 

6 ECC TESTeCOMPARE END RESULTS ONLY IF gwee Is LOW 
OO SPHOOOHOO OCT HOOE SOOT SOSOECDOOTTHOODHOOTEOTOOOOHOOOOOOEODOOEDORO 

27 BASIC DEFINITIONS 

CF FHEECOEOOOOOCOECOOEOHEOOODOEHOEOD OOO DODOOOOOCOO HOSS OO RCOOCOUO 
ag INITIAL ADDRESS OF THE STACK POINTER eee 1008 one 
40 GENERAL PURPOSE REGISTER DEFINITIONS 
$2 PRIORITY LEVEL DEFINITIONS 
62 "SWITCH REGISTER® SWITCH DEFINITIONS 
90 DATA BIT DEFINITIONS (BITee TO BITIS) 
116 BASIC "CPU" TRAP VECTOR ADDRESSES 
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133 


140 


151 
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SSSSHSSHSEHSSHHSHHSOHHOHSCSSOSHESHHSHSHOSTHSEHOSHSOOHCOOHEHHEHOOOOS 
TRAP CATCHER 
SSSHOSSOSOSOSSHSSSGESOHSOFHSHOSHESHLOFHHSHSEHOSHOHOHHSHSOOOHOCOCES 


ALL UNUSED LOCATIONS FROM 4 © 776 CONTAIN A °,02,HALT® 
SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
LOCATION @ CONTAINS ® TO CATCGM IMPROPERLY LOADED VECTORS 


EPSP REOOOHEHOROR EHO D OREO TES SOOETOESE RESET EOF OEROSOTEGEDORCOROO® 
STARTING ADDRESS(ES) 
0000000000 0000 000000000500 00005000 000000000000 000000000000000000 


146 


STARTING ADDRESS 200 FOR NORMAL STARTS 
THIS WILL TEST ALL RPO4°S ON THE SYSTEM A SINGLE DRIVE AT A TINE 


STARTING ADDRESS 218 WILL TEST ONLY ONE SPECIFIED DRIVE 


SOOO OEOOSOEEHOOOETEOODOOEOEUOOOOCOOR ODED OCOOOCOOOTU OOD ETODOOCO0008 
MEMORY MANAGEMENT DEFINITIONS 
OOO OFEOCDOOEOOOEE OOOO DOOD DEO OOCOODECODO OOOO OEE SOROODODOCNOOCOOORS 


is3 
157 
164 
175 
166 
186 


KTii VECTOR ADDRESS 

KTii STATUS REGISTER ADDRESSES 

KERWAL "Z* PAGE DESCRIPTOR REGISTERS 

KERWAL "I° PAGE ADDRESS REGISTERS 

POSSOOROOOETERE OOOO OOS OHRO LOD OCSECONHOOOT OOO OHEOOHOOCCODESS OED 


SOSOSOEHESOSOOEOSHTSSHHSHHHOHHHHOHESHOSSHOHHOTHHOHHOOHEECOOCOROS 


Seen Sae  e 
COMMON TAGS 
SSOSSHOESHOHSSOHHSHEHSOSHHHCHHOSSSSHOHHEHHOSCHOHOHHHESSOSOSHHOCOEO 


THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONg 
USED IN THE PROGRAM, 


SEHSSESTESOGHGGHHGSOGHSIHEGOSESH OO GFHEGSSOFOHGTERHGOSTODVOTSOOROD 
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CPOCOSSOOSESOTESSOESOESEOSETOSOTOOEOOOEHOOHOOOSOOSHSOOSOROHEOORR® 
246 ERROR POINTER TABLE 
OFFS OSCOSOCH OSH SOEEEEOOHOSHOEHOOCOTOOROSOCOO SORES EOROCOOEOHEOOOOS 


248 THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR, 
THE INFORMATION 28 OBTAINED BY USING THE INDEX NUMBER FOUND IN 
LOCATION GITEMB, THIS NUMBER INDICATES WHICH ITEM IN THE TABLE I8 PERTINENT, 
NOTEis IF GITEMB 168 © THE OWLY PERTINENT DATA I8 (SERRPC), 
NOTE2s EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


254 EM spPOINTS TO THE ERROR MESSAGE 
: DH s9POINTS TO THE DATA HEADER 

oT ppPOINTS TO THE DATA 

or pePOINTS TO THE DATA FORMAT 
263 SHOEOGOORDOGEESE SOTTO LSS FUOHGRGOHVHOG OC OTEDONEHTOOOUGFHDTOROCOEO 
711 CORESPO GIR SO BOIGRIITO OE FEGOSSO TIGHT OGFOFESEOHO GTO OHDE VHHGOHVOEOSD 
716 PSCEPEDOGECUHIFOHOR OG OSE SOLOTS OGG OSSHDG GOS ODHAOGOTSSOVESOGOHOOGO®R 
750 BOLOOGSOGOCHG SE ESGOGOFSHGHSHLOGHO OC OVE ETOODE SE OSTCOO OT HGD TEL OHOOD 


SOSOSHOSHOHHOHOSSHSOHHGESHSOHHHHSHOSHSHSHEHSCHHOHHSHSHSOHOOOEOS 


$08 60000000060000060000006000900060000000000000000000000000 000008 
908 REGISTER ADDRESSES 
FOOL OPOPOO OHO HOEECEOE DOOD EEOOOSOO HUSTED ERESOOOOOCEHODOROOOOHOONO® 


SL hh dahedahehadehehahebabebeheh hehehehehe hh bh dh bh et 
1074 REGISTER TEST 
CP CCHHOOSOO ED EOOSESESOS OD ODEDOCOSHOHOOOHHOHOHOS OOOO OHOHOOOODOOOOO 


1158 0900000800000 00 0000 000000000000000000000000 000000000000 00 00008 
TEST 1 REFERENCE EACH REGISTER 

REFERENCE EACH REGISTER BY A MOVE INSTRUCTION 

OO OEF OOOOH OOOTEHHEOD OCHO OOCTHSOCOOOOCHOOOHCOOSCCOOODOHOOEO8 


1202 900 00000000000000000000000000000000000000000000000000000000008 
TEST 2 RHCS2°CONTROL AND STATUS 2 
1205 THIS PARTIALLY TESTS RHCS2 TO ENABLE DETERMINATION 
OF THE NUMBER OF DRIVES PRESENT 
12068 GODGOGIGE SE DIGS GTSGESGSVOGESSHGTESE CEGOTFGHETEOGD OOO SH BGGHSEHODO 
1223 PPEOFEEOGRASSOSOGSSEG GGOSGEOSGHE GSO OC OSEGS HOH YROOOOGLGHOSOOSHO 


TEST 3 PARTIAL TEST FOR RHAS FOR UNIT NUMBERS PRESENT 
daha hahahahahhheh habe bhhehehebababehheh deh hehhh debate beh hehbehhheht bebe tbe hhtetehebehed 
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1359 
1395 


1402 


1434 


1437 


1442 


1$01 


1513 


1516 


1521 
1606 


1611 
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SRECSOSSELS POST HOSES OSSHHSOESOOSCEOSSEOOECHOH OO SESEHESOCESERES 
TEST 4 TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 
SSSCSSSC SESS ESHOLOESOESHEHOTOROOSOCHOCOSETOHSOHEOHE HOSS HOEOOES 


SSOOSCOHHES HPSEC CSESOS SOSH SEEHELEFESEOSHEOHHOOOSSSHECCOROOEED 
TEST S TEST SERIAL NUMBER AND DRIVE TYPE! 


004 = 1B OC TH74 17848 


READ SERIAL NUMBER REGISTER AND DRIVE TYPE REGISTER 


TYPE IT OUT AND PROCEED 
TO LOOP HERE SET SWITCH @ AND THIS TEST NO AND 


SHSSSSSSSSSSHSCSSHHSSSSSHSSSSOKLSSHSSOSHSHESHHSEHESSHSOHSEOHREOHOS 


SPSCHPSSOSEHHSOHOSEFOSEOOCSEHEOSHEHEHERESOOSESOSEOHEOHOE OHO RO® 
TEST 6 CHECK MOL TO BE LOw 


RESTART 


MAKE SURE THAT DRIVE IS OFF LINE BEFORE STARTING PROGRAM 
IF DRIVE I8 ON LINE THEN AFTER TYPE OUT THE PROGRAM WILL 


HANG FOR EVER WAITING FOR DRIVE TO GO OFF LIWE 
CECOFEESEESEHOHEHREHHSSOECELELOCEPOESOOSESOCEOHOCOSOSORHOOHED 


SCHPOCSOSCSSCHSECCSHECHESO FECT OOESESSEHOCHEHESEOOSSHSROOHORERES 
TEST 7 PACK ACKNOWLEDGE COMMAND TEST 


THE PACK ACKNOWLEDGE COMMAND WILL BE LOADED INTO RHCSi 
THEN ALL REGISTERS WILL BE CHECKED 

RH CLEAR WILL BE GIVEN 

THEN ALL REGISTERS WILL BE CHECKED 


SOPSSCESOEOSEHOEHEOCESEOE SES OCEOOSSOSEOCOSOHESSOOHESESOOCHOERRS 
| A debhehhchehehebehcbebehehedahaehahshebabababshebehebedabahebbed db h hhh ht he hte) 
TEST 10 MAKE CURRENT CYLINDER 8 0 

SCOOCCSESESSOEEHELEEOOSSSOSHOSOSEESCHSESHSOEHOSOSSOOHODOOTEOROSS 


POCO OCOSHECOEHOHOH OOO HOCOHECCOSOCESHOHOHEOSOOHRSOHREOTEO® 
TEST 11 CONTROL AND STATYS REGISTER 1 BITS 8 AND 9 


WRITE CYLINDER ®, FORMAT 16 BITS PER WORD 

TRACK ©, SECTOR ©, KEyS @, NUMBER OF WORDS 256 

DATA Ig THE CONTENTS OF THE TTY READER STATUS REGISTER 

THIS WILL USE BITS Ai6é AND Ai? WHEN THERE Is MORE THAN 
COCOSOREEOECHTOEOOECEOCEOOROCHOEOECOSSHOTHOHOOOEHOODOTEDOOCOO® 


CROCS HELESESOSECTEEESCOHOHHOTHOHO CHEESE OHHOTOEOOOETORHOOEOO® 
TEST 12 DRIVE TIMING ERROR 


A READ HEADER AND DATA IS STARTED ON CYLINDER ®, SECTOR 


WITH GO 


20K OF MEMORY 


@, TRACK ©, 260 WORDS, AFTER THE HEADER 18 READ IN CORRECTLY 


THEN NO SYNC BYTE (DATA SYNC) I8 GIVEN, 
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1762 


1765 


1911 


2042 
2205 
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THEN NORMAL DIAGNOSTIC CLOCKS AND DIAGNOSTIC 
SECTOR CLOCKS ARE GIVEN FOR 24 BYTES, 
THEN 536 BYTES OF SECTOR CLOCKS ONLY ARE GIVEN, 
THIS I8 TO TO BRING SECTOR PULSE UP 
THIS SHOULD SET DRIVE TIMING ERROR 
COCSCECOCESESSHSOHHHOOHCLOSOS OCT EEOOCECOHESTOSESSED CORREO ELO® 


POSOEOECEEERSOHO SOE OOOLSOEHHOHOHO SHO OODEHOHOOEDOOOEEOOHOOROLED 
TEST 13 DRIVE TIMING ERROR 


A WRITE DATA COMMAND I6 STARTED ON CYLINDER @, SECTOR 


1Ge0CTe74 17548 


@, TRACK ©, 256 WORDS, AFTER THE HEADER I8 READ IN CORRECTLY 


THEN WO SYNC BYTE (DATA SYNC) I8 GIVEN, 
THEN NORMAL DIAGNOSTIC CLOCKS AND DIAGNOSTIC 
SECTOR CLOCKS ARE GIVEN FOR 24 BYTES, 
THEN $36 BYTES OF SECTOR CLOCKS ONLY ARE GIVEN, 
THIS I8 TO TO BRING SECTOR PULSE UP 
THIS SHOULD SET DRIVE TIMING ERROR 
000000000 00000000000000000000000000000000000000000000000000008 


$0 09000000000000000000000000000000000000000000 00000008 00000008 
TEST 14 DRIVE TIMING ERROR 


A WRITE HEADER AND DATA a? 38 GIVEN 
TO CYLINDER @, TRACK 6, 256, WORDS 
AFTER SECTOR I8 FOUND (THE SECTOR FOUND FLOP I8 HIGH) 
WO MORE DIAGNOSTIC CLOCKS ARE GIVEN, 
ONLY SECTOR CLOCKS ARE GIVEN TILL SECTOR PULSE Is HIGH 
THIS SHOULD SET ORIVE TIMING ERROR 
EH OOREEOOETP OOO OE HOHE DOCEOCEOES EOE HOOEOOESODOODODEORHCODEROEED 


 Aehebehehthbebehebebebeababebchahadebabdebehtebebehideb thd bhi h hich i eit eit ett) 
TEST 15 sECTOR SELECTION 

THE SECTOR SELECTION LOGIC 138 CHECKED HERE 

EACH SECTOR OW TRACK ZERO 18 WRITTEN INTO 


DATA 38 © 19 WORDS OF ZEROS © SYNC WORDS, 4 HEADER WORDS 


1 CRC WORD, S&S WORDS OF ZEROS, § SYNC WORD, 196 ZEROS 
COATA), § SYNC WORD, 79 SECTOR NUMBER TO VARY 


THE WRITTEN DATA 18 CHECKED IN MEMORY 
COPOTEOOTECOCOOUSECROOOODECHOEEOHCEOEEOOHOOOOROCOOHCOEEOEHOOOR 


bd Aedadahdhahalbabebebebebebebshehsbetebidc tat ett tii titre rit iii iii itt) 
TEST 16 WRITE ECC TEST 1 


THIs Is A WRITE ECC TEst 

WRITE CYLINDER®, FORMAT 16 BITS PER WORD 

TRACK @, SECTOR 1, KEYS ©, NUMBER OF WORDS 256 
OF ALL ZEROS, 
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2213 
2353 


2363 
2524 


23827 


2532 
2534 
2701 


2704 


2711 
2091 
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SOESOOCORELSESOO DEO ODOOCEOEOOHEOSEEOOSOCEOSOOPSOOROCOOOCOORHO® 
TEST 17 READ ECC ENABLED 1A 


THIS Is AN ECC READ DATA TEST 

ERROR CORRECTION I8 ENABLED 

NO ERROR I8 INSERTED 

GOOD DATA USED 18 256 WORDS OF 

COMMAND 18 GIVEN FOR CYLINDER @ FORMAT 16 BITS PER WORD 
TRACK @, SECTOR @ KEYS @ READ HEADER AND DATA 


SOCCCESEOLEOOCOCHSESCOODEOHEEHEOOOESOOHOTHOOODOOOODCOOOHOOERS 
TEST 28 READ ECC ENABLED 18 


THIS IS AN ECC READ DATA TEST 

ERROR CORRECTION I8 ENABLED 

A CORRECTABLE ERROR I8 INSERTED IN BIT POSITION 32 
GOOD DATA USED 16 256 WORDS OF @ 

COMMAND Ig GIVEN FOR CYLINDER @ FORMAT 146 BITS PER WORD 


TRACK 6, SECTOR @ KEYS @ READ HEADER AND DATA 
POCESRCOECESEOEHOCOODECOTOOCREOEHEOEEOHOHOSESHOROOERCOROOEOOCS 


sd hehahebebabababebedehehebebebebebdubebdabddebebebdehbhhehh ett that 
TEST 21 READ ECC ENABLED iC 


THIs Ig AN ECC READ DATA TEst 

ERROR CORRECTION 28 ENABLED 

A WON CORRECTABLE ERROR 16 INSERTED IN BIT POSITION 24 THRU 32 
GOOD DATA USED I6 256 WORDS OF @ 

COMMAND 28 GIVEN FOR CYLINDER @ FORMAT 16 BITS PER WORD 

TRACK @, SECTOR @ KEYS @ READ HEADER AND DATA 


SHEHSOGSICE SSS GOSS SSOOSHSES GEG HSGHGVSSSOTHOHTOOHSEHSFRHOGHGOSBQHOOS 


Sh hebbhehdhhdebebbahbdbebdh ddd dh bed bib itt titi tithe eTTeeY 
TEST 22 WRITE ECC TEst 2 


THIS I6 A WRITE ECC TEST 

WRITE CYLINDER @, FORMAT 46 BITS PER WORD 
TRACK @, SECTOR 4, KEYS @, NUMBER OF WORDS 256 
OF ALL ONES, 


m 
~ 


MAINDECe11eDERPTAA 
3040 


3583 


3508 
3729 
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SCORORECECOCOEEESEODEOSOSESE OS OCEESEOOOEOEOSEOSCOCOOSECOCREOORE 
TEST 23 READ ECC ENABLED 2A 


THIs Ig AN ECC READ DATA TEST 

ERROR CORRECTION Ig ENABLED 

NO ERROR I6 INSERTED 

GOOD DATA USED I8 256 WORDS OF 177777 
COMMAND I8 GIVEN FOR CYLINDER @ FORMAT 16 BITS PER WORD 
TRACK @, SECTOR @ KEYS @ READ HEADER AND DATA 


080006000 0860000000000000000000500000000000000000080000 00000080 
TEST 24 READ ECC ENABLED 28 


THIS I8 AN ECC READ DATA TEST 

ERROR CORRECTION I6 ENABLED 

A CORRECTABLE ERROR I8 INSERTED IN BIT POSITION 32 
GOOD DATA USED I8 256 WORDS OF 477777 

COMMAND 18 GIVEN FOR CYLINDER @ FORMAT 16 BITS PER WORD 
TRACK @, SECTOR @ KEYS @ READ HEADER AND DATA 


I iiiiiiiiiiiiiiiiiiiitTy 
TEST 25 READ ECC ENABLED 2¢ 


THIS Ig8 AN ECC READ DATA TEST 
ERROR CORRECTION I8 ENABLED 


A NON CORRECTABLE ERROR IS INSERTED IN BIT POSITION 32 AND 23 


GOOD DATA USED 18 256 WORDS OF 1797777 


COMMAND 28 GIVEN FOR CYLINDER @ FORMAT 16 BITS PER WORD 
TRACK @, SECTOR @ KEYS © READ HEADER AND DATA 


00000000606000800000000000000050000000006000000000000C0 000008 
TEST 26 WRITE ECC TEST 3 


THIS 18 A WRITE ECC TEST 

WRITE CYLINDER ©, FORMAT 16 BITS PER wORD 
TRACK ©, SECTOR 1, KEYS ©, NUMBER OF WORDS 256 
OF ALL $2525, 


LL dedhhebahabhehdehabebebehetehhabebeheb ded bi iki ti ti titi tt orr Tiree TT iii tty) 
TEST 27 READ ECC ENABLED 3A 


18c0CTe74 17848 
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3732 


3739 
3901 


3904 


3912 
4065 


4008 


4096 
4275 


4278 


4266 
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THIS IS AN ECC READ DATA TEST 

ERROR CORRECTION I8 ENABLED 

NO ERROR I8 INSERTED 

GOOD DATA USED I8 256 WORDS OF 52525 

COMMAND 18 GIVEN FOR CYLINDER @ FORMAT 16 BITS PER WORD 
TRACK @, SECTOR @ KEYS @ READ HEADER AND DATA 


SPEHOLEOHFEGI SSO SECEFESGIG EHO OHS OSTSOGECSTOSCTEE PEGUSLUHSOSHTOHSSY 


PORCH OESOESSROOEEEH UOT MODE EOEDEOTET OSES ERTEHREORRHHOOSOOUO ROOD 
TEST 38 READ ECC ENABLED 38 


THIS I8 AN ECC READ DATA TEST 

ERROR CORRECTION I6 ENABLED 

A CORRECTABLE ERROR I8 INSERTED IN BIT ssf 4128 
THIS I8 THE LAST BIT OF THE ECC 

GOOD DATA USED 18 286 WORDS OF $2525 

COMMAND 18 GIVEN FOR CYLINDER @ FORMAT 16 BITS PER WORD 
TRACK 6, SECTOR @ KEYS @ READ HEADER AND DATA 


POTSSGEROE TCHS EFEESOGOPVOFSSSG TPO GEOG SCSLOTEGSSSVOVHGGFHOPOGORHO 


000 00000806000000000000000000000000000000000000000000000000008 
TEST 31 READ ECC ENABLED 3C 


THIS IS AN ECC READ DATA TEST 

ERROR CORRECTION I6 ENABLED 

A NOM CORRECTABLE ERROR Is INSERTED IN BIT POSITION 296 THRU 308 
THIS I8 IN WORD NUMBER 19 AND 20 

GOOD DATA USED I8 256 WORDS OF 52525 

COMMAND Ig GIVEN FOR CYLINDER @ FORMAT 16 BITS PER WORD 

TRACK @, SECTOR @ KEYS @ READ HEADER AND DATA 


POCCOSOEHECOSOSEDEOOOOOECOCCOSHOSOOFEOROOOHHEEOOHCCOOEHODOOOO® 
TEST 32 READ ECC ENABLED 3D 


THIg Ig AN ECC READ DATA TEST 

ERROR CORRECTION I8 ENABLED 

A WON CORRECTABLE ERROR I8 INSERTED IN BIT POSITION 32 AND 4096 
4096 16 THE LAST DATA BIT 

GOOD DATA USED I8 286 WORDS OF 52525 

COMMAND 2g GIVEN FOR CYLINDER @ FORMAT 46 BITS PER WORD 

TRACK @, SECTOR @ KEYS @ READ HEADER AND DATA 


SLGEGSEEHG SSG GUGEGOFEOSESFEPEGEETIESECLESHGTOS ELE GEG ESHHGOOSORO 


000980 00000000008006000005008 000000000 000000 0000000000 00000008 
TEST 33 PROGRAM INTERRUPT 


EX 
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4473 PROGRAM INTERRUPT I8 TESTED BY SETTING RDY AND IE 
IN RHCSi AT THE SAME TIME 
THIS SHOULD INTERRUPT THROUGH LOCATION 254 


4476 THE PROCESSOR PRIORITY 18 SET TO 4 
PCOS OSHOCEEESSEOSOHEHOOOOOEEOSECOCOESSOOOOOESERECCEEOO CODE 


4512 Peri y) 
TEST 34 INTERRUPT AT PROCESSOR AND DISK PRIORITY SAME 
4515 PROCESSOR PRIORITY IS SET AT S (SAME AS THE DISK) 


TE AND RDY 18 SET, THIS SHOULD NOT INTERRUPT 
SOF OHETRE SHO SED ODE PE OOOTOSHFOEE OU OEE UGEDEHOEEEDOLEES OED OHROEBE 


4548 090000600 00005000000000000000000000000060000000000000000000008 
POSSESSES EOHOCEEHOOHOOHHEOOOHEOHOSOOEEHEOOOSOOECOCECOOORORS 
TEST 3S END OF DRIVE 


4552 THIS I8 THE EWD OF TEST FOR OWE ORIVE 
IF THERE ARE MORE DRIVES THEN THE PROGRAM 
JUMPS TO TEST S FOR NEXT ORIVE TEST 
END PASS I8 REACHED ONLY AFTER ALL DRIVES ARE COMPLETE 


4557 SOSESEOHESHHSHSSHOSSSHGHHOSCHLOLHFHHSOHHTHOTHOOHOOHHOHOHEHOEHOS 
4593 SSSOSSHSHSHHSHSHHSSSSOSHSEOHHHSOHSSHOHHSHEHCHHOHOSOSHHOOHOOOES 


Shh bhbebaheddededbdedahehbdeh hhh ddd ddd eth r ier iti ti pit iii irre i erie iit) 
4595 END OF PASS ROUTINE 
0008 0000000000000 0000000000 00000000000000000000000000000000000008 


4597 INCREMENT THE PASS NUMBER (8PASS) 
TYPE “EWD PASS OXXXXX" (WHERE XXXXX Ig A DECIMAL NUMBER) 
IF THERES A MONITOR GO TO IT 
IF THERE I6N°T JUMP TO TST) 


$08 0C0OSEEE 00008000000 0000EE000000000 08000 00F 000050000 0HCOCOCEOO8 
4637 SUBROUTINES 
OOOO OOCOSEESSEOHOEECHOOEEEOEOETSOOEOOSESEOORODECOOOEOCEROCODODOOS 


































MAINDECe11 eDERPTACA DECDOC VER 60,04 16c0CTo74 17948 PAGE 13 


FOROS OOSEESOSEOOEHSOOSOROEOTESEDOCOREOOHEEOEHOTOHEOOSOHOHOE00008 
4717 SAVE REGISTERS ROUTINE 
SEREPECOOTEPHHEEHOSEEEFOH MESFET HOTO PORE TO CRHETETH HEROS ERE ROR UO HED 


SCOSESOOOSOSEHOCSEST HOHE OOEOSESOOTOTOPEOHOOOCHOECEHOHCOCOOHOOEOOO® 
4745 FLOAT 1 AND @ 
CO SSSOSEHHO SOHC OSEOEESOOSHHOSOORHESHOSHOEOOCSOSEOOOSOESOCHORODO® 


090000000 0000000 00000000000 90500000000000000000009000000000000008 
4782 CLEAR MEMORY ROUTINE 
00000 0060060000000000000000000050000000000000000000000000000 00008 


SCOCCOPCESHCEOOSOOEHOEOOOEESECEROS OOO TOODOEECEOOOEODOOSOHHOCOORO0® 
4615 LOCAL TRAPS 
SCCSOSOOEHEEEOOESEHOSHSSCOOESEOSO OF OSOOOOCESOHOLOH OHSS OOOROOOS 


000000000 00000000000000000000000000000000000000000000000000000008 
4832 CLEAD DISK ROUTINE 
SEFEESERERHOOTELHDECOHEEOTEEEOCHCEOHEDOOTRDELEOE SHO TOE SEO LOS EEE ES 


FOSSSEREHEOSOOOEEOHOOESSOOHEOOS ESOS OOHHOECCSOCOSOHEHOCCCHODODOOE® 
4045 CHECK DISK STATUS ROUTINE 
SCOOPOHSSOHESOSESEOOSOHEHOHOHSHOSCSEOOOHOEOOHOOOCCHOHOSODOROOHCOES 


eet) 
4972 SAVE ROUTINE 
SCRROREEESEESEREESEOSEEHOOELESOCEHCEOOEEESOOHOCEHOHOOOOCOOOHERCOCS 


SPSSSSSOSSSSSSSOHESESESSHSSESHSEHHSCOHSTHOSECEHSHOHHHHHOHOHHOCOOORO 
4997 WRITE CHECK ROUTINE 
SHGPSHSSOCIEGSTCSEOS TOSS GES IETOSESOVEFSTOO ODO HSESHESHOHPOREHSTOSERONRO 


dA heddebabebebebabahehedahahhe bbb ddbbbbd dd dh deh hhdb hb dbd tb ehhh tL 
$033 COMPARE ROUTINE 
OCFSOOCEOSEERDSSEOEHOOOHOCOCOEHEO OOOO ES SCEHOOOHOEOOOETOHOOEOHSEOC® 


SOCSEPOCEHODOHOCHHEECEROCOEOSOOEDEDOLEOODECOOOEEROHOOROODOCDOTOOR 
5123 CRC GEWERATION ROUTINE 
080000 00000000000 00000000000 0000000000 0000000000000 00000000000000 


AAAS EAA ar eae 
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CESESCOOOEEEOOSESEOEESOTOEOESOOSHEDESCOSTEHECOOSOOHESEOOOHOHOCOES 
5436 JAM CURRENT CYLINDER ROUTINE 
COOOSOSCOSCCROSCSOCEESOOOOHOSEH OTS SOOLECHOOOECED ODED OOOOH OCOORES 


00009000008 0606000000808 00000006 000000000000000000000080000000000 
5473 ECC GENERARION AND COMPARISON ROUTINE 
COP FDOOPOCOOEEOSOEEEOSEOOEESEOOOOECEODESELOOHEOECOOHOOSOOOHOODECED 


SOFFSOOCCESECEEEESE SOOO HOOHOOCEESSOCEHOOOOSOOSCEOEOCEHOOOOCOCOOS 
5809 RH BASE ADDRESS CHANGE ROUTINE 
SCOSSSSSOSOCEOESOSECEEDOCEHOSCSOOSECEDETOEOOOOECOESEOOOCOEOOOOO0008 


5010 THIS ROUTINE WILL ALLOW THE CHANGE OF THE BASE 
ADDRESS FROM 176700 TO ANY TYPED VALUE 


OFS SESSOSHEEEOCOSESEEEO OHSS OOOSOEHOCOSHOOSOOOSEHECOOOEOESORHOR8 
5661 DISK SIMULATION 
O00 OS SOOCESSOCOSSEEEEEEESOHSOEOHELEHEEOOCOOSOOHSOEHOCOHOOEEC00008 


$ee2 SESSSSOSESSHSHGOSHOFHSHHHOHESHOHSOSSOOCOSHSOHSOHOOOOOHCHOSOCHOOCOS 

SPS CE EESEFEE ELH GHED GEO GOGH OGTCGFOEHOHOCTCHRDOOGOTSSHSEHHHEIGOHOGORS 
6028 CII err rrr iririrririrtirirrriiyyt) 
6050 SOSOSSHHHHHSHESHSSHSEHHOHOHHOSEHELOOSHOCHHTHOSEHOOHOHHOHHOHOCO 
6087 SOSSSSOSSOSSESEEHESHEHHSEHEHHHHHHHHSOHHSEHESCEESCHOHECHCOHHOCOOO 


9988608880880 08 6008000000000 0 0000000800000 000000000800 00000008 


6164 SOSSSHOGHEHEHEHEHESHSOSEHESHHHHSOHHSHSSOSHOHSOHESOHOCCEROCOHOEOS 
SGRPOGEDE HOSES EGESHSSGEEOTSHSHO DE GOEDOECESIOTGOGSOOMFESOGLVEGOGOG 


6251 SEFOO SEO RESTO HTSISSHTSOGSISIO FHSS CCE HSHOVGHS OS TOOHSHSEOEOOEEOED 
SHEHOGHEGSETTVEGHSHHSSSSOTFHEOIGHOTHOH GHG GO HOOPEGCHSSSOOOOHGHTCSCOHOREODO 


6319 SHOFHESOAIPOIGOLSOSOGOHHOSSGSEO TE CHSOOSTHSEOSSOGOOEOORTSDEOETSOS 
SHIPSCSEESOCHGEGEGHFOS GOS GTHSSOFHSTECRHO GOS MED GOGO GOTOH HGOTSESHOS 


6392 SESSSEESIHSHSEHEHEHHHOSSHSSHHSOHHOOSHEHEHOSOSOOHOHHHHOOCHOREOD 
SEOOEGETES LAE OCUS GSE EGOGD FES GEGIWOGOHE SOI GESOGHOSGRGSHSOSEHOTSHHOOOH 


6424 SOHSOGH SRE DOG HE THEE GHD EODZEEGGHGGOS HS OGOOOSSSSGGSYHOOHEEEIGGORSD 
EOCESEEOEESGIEEGIOGOEDESEOGETGESSOEOOPOECTOOHDOOYOOSHOGOESUEROORS 


6541 SPECOGETHSETETHGOSESGFHGIROOTOSOOFOEC DO GFSLOGHSOSHOHGSUSOOSHOTOD 
SOHEGEGES EOE GEGE SOS OGEDOHOVOSREDE DEES OVE ESEONGS OLODEGODVOSOOOD 


6665 SOOSOSECEOOHEHEHSOSOSSHSOSECHEOEOSHORLOSHHEHOSHOOOHOCHHOODEOROHO 
BOCES RPETIOHVGTAE STO SS OSD HO OTSEGO CEGIGOTEIRSOSGHOVGOTEEEOSOEEHS 


H2 
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8798 COT iii iriiiiiii) 
6000 080600606 80000000 060008 0E 0000000008 000000000008 90000000 0000008 
6647 GSSESSOVGSTHESST SHEET EHOHRE SOS 


6924 


000000056 06006000000000000 0000000000008 00000 000000000 000000000008 
SCOPE HANDLER ROUTINE 
PPCSSOOOOSOOESEOSSHCOREOEOHESEOHECLEOOEOCOOHOCODOSOOOHO CODECS ODORS 


6052 THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS, IT WILL INCREMENT 
AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG, (DISPLAY<716>) 
AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<1S100@> 
THE GWITCH OPTIONS PROVIDED BY THIS ROUTINE AREs 
8434081 LOOP ON TEST 
8Wiie8] INHIBIT ITERATIONS 
86901 LOOP OW ERROR 
Sugee, LOOP ON TEST IN SWR<77 06> 


CALL 
SCOPE 9» SCOPESIOT 
6922 0000060060000 00 000000800000 000000000000000000000000000000 00008 


COOP OCECCOCOOEHOREEOOEESEDEOSOSOOOEHODEDOEOHOCO SOO HOOCOHOROOROHES 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
PRET ROOTDOEMDEEEEODOREEEECHOTEHO SOROS HTEDEDOHESTEDEHOSEOOEOEHEORE 


6926 THIS ROUTINE I8 USED TO CHANGE A i6eBIT BINARY NUMBER TO A geDIGIT 
SIGNED DECIMAL (ASCII) NUMBER AND TYPE It, DEPENDING ON WHETHER THE 
NUMBER Ig POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
BEFORE THE FIRST DIGIT OF THE NUMBER, LEADING ZEROS WILL ALWAYS BE 
REPLACED WITH SPACES, 


CALLE 
MOV NUM, ©( SP) p9PUT THE BINARY NUMBER ON THE STACK 
TYPOS 9960 TO THE ROUTINE 
6990 OOF OOHSOECH DODO CEOO ODOT HOO OOREE OOD DOOS ODED OHOPODOCCSOEODODOEOS 


1Ge0CTo74 174546 
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Iii iit) 
6992 TYPE ROUTINE 


7039 


6994 ROUTINE TO TYPE ASCIZ MESSAGE, MESSAGE MUST TERMINATE WITH A @ SYTE, 
THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED, 
NOTE1¢ ONULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER, 
NOTE2s GOFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED, 
NOTE3s OFILLC CONTAINS THE CHARACTER TO FILL AFTER, 


CALL? 
1) USING A TRAP INSTRUCTION 
t 


YPE oMESADR poMESADR I8 FIRST ADDRESS OF AN ASCIZ STRING 
OR 
TYPE 
MESADR 
2) USING A JSR INSTRUCTION 
MOV P8,°( SP) p9PUSH PROCESSOR STATUS WORD ON THE STACK 
JSR PC, STYPE peCALL TYPE ROUTINE 
MESADDR peFIRST ADRESS OF MESSAGE 
7037 COCOOOSEESESOSEOOE SOROS OO OOOOH OOHOOSOOHOHHOOHOOOOOOSOOH DOORS 


0006890000 0006 60000000000 0000000000000000 0000000000 00005000000000 
TTY INPUT ROUTINE 
0080 0OOOEOEE0OOOE0O00000O0 SOS O08 00H HOOOHOEOOOOOOHOHDHOOHOCHOOCO® 


7048 TK INITIALIZE ROUTINE 
THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


CALL 
J8R PC, STKINT 
RETURN 


7065 TK SERVICE ROUTINE 
THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 


7067 0000000000600 000 00000000500 00000HOCHOOCOFOHOOTHHOOCOOHHOOHORO® 
THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


CALLE 
ROCHR seTNPUT A SINGLE CHARACTER FROM THE TTY 
RETURN HERE peCHARACTER 38 OW THE STACK 


7107 PORFEEGEEED ETT AOOPEOTOEEOHHETOEOI®ESOT OER SHGEEEERIOREDTDOOSHOS 
es ROUTINE WILL INPUT A STRING FROM THE TTY 
a 
RDLIN poINPUT A STRING FROM THE TTY 
RETURN HERE psADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
peTERMINATOR WILL BE A BYTE OF ALL 0°S 
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7145 


7199 


7245 





7143 POSS IDOGSOREHFHGOSILHTOSOHG SV TEGHSISIOPSHSSHHSSEKSEHHHOMEOGHGRD 


000000980 S0O0FSE DOO CRESOOOODOHEEOODOOOHOOEOHEDOOOCCCOCS SOSH OOOOE® 
READ AN OCTAL NUMBER FROM THE TTY 
FOOOSSSOSSESESOOSOTESOT HH TOCOSHOHSOSHOSEOCOOEO HCO OHOOSODOCHCHOROD 


7147 THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
CHANGE If TO BINARY, 
THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
OCTAL DIGITS, If AN ILLEGAL CHARACTER 18 READ A *?° WILL BE TYPED 
FOLLOWED BY A CARRIAGE RETURWeLINE FEED, THE COMPLETE NUMBER MUST 
THEN BE RETYPED, THE INPUT I6 TERMINATED BY TYPING A CARRIAGE RETURN, 


CALLs 
RDOCT peREAD AN OCTAL NUMBER 
RETURN HERE 99LOW ORDER BITS ARE ON TOP OF THE STACK 
geHIGH ORDER BITS ARE IN SHIOCT 
7197 CWSGSSEOE SHHGISRIVSEGHEGHOSOLGOHSSHIGGGIOGOLSFIOFGLOHOSESCHSOHOURS 


0800900 OOOESESOOSSOCOSESOOSOOOHOHESOHHHCOHOHOOOOTOHOSHOOOOHORCOOS 
ERROR HANDLER ROUTINE 
000800000 00000000066500000000000000000000000000000000000000000008 


7201 THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
SAVE THE ErpOR ITEM NUMBER AND THE ADDREgs OF THE EppnOn CALL 
AND GO TO SERRTYP OW ERROR 
THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE; 
8WiSe, HALT OW ERROR 
SWi3e1 INHIBIT ERROR TYPEOUTS 
81004 BELL ON ERROR 
Sue9ei LOOP ON ERROR 


CALL 
ERROR WN psERRORGEMT AND NeERROR ITEM NUMBER 
7243 COEEOHOTEEHOCHH OOOO HESSD OD DODO LODECEDOCSOSODOCOSOHODOEROEOHOE® 
00806600000 00000000000000000000000000006 000000000000 000 0000000008 
ERROR MESSAGE TYPEOUT ROUTINE 
00800000000 00F 0000S OODOCOODOESOODOOOD ECOSOC OCOD DOOHEODOOOOCOROLS 


7249 THIS ROUTINE USES THE "ITEM CONTROL BYTE* (SITEMB) TO DETERMINE WHICH 


ERROR 18 TO BE REPORTED, IT THEN OBTAINS, FROM THE "ERROR TABLE® (6ERRTB), 


AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR, 


7300 ESFGSSEOETSEOGHOHHTEGEGGS HGS GOECEOOOHSESSOGC TSE UO HOE HHHOSHOHGDOTROHOO 
SRS DOE QEGPEEEGTSSESEPSOGT HGS EIGEOGSEDOOHTIRHOOSHSESDEDOGEHOOGODO 
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7303 


7381 


7396 


OOO OECOCOHEHHOD ODOR OOOSOOOOOOOOCOOOOH OOOO LOCEEEHOOHOODOCOOEOOOOO® 
BINARY TO OCTAL (ASCII) AND TYPE 
009080000 0OOOOEOCOCEHOOOOHOOOOEOOOCOOOSOOEOOOCOOEOHOHOH OOOO OD0008 


7305 THIS ROUTINE 18 USED TO CHANGE A i6eBIT BINARY NUMBER TO A 6@DIGIT 
OCTAL (ASCII) NUMBER AND TYPE IT, 
STYPOSeecENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


CALLS 
MOV NUM, ©( SP) psNUMBER TO BE TYPED 
TYPOS spCALL FOR TYPEOUT 
oSYTE WN p9Ney TO 6 FOR NUMBER OF DIGITS TO TYPE 
eBYTE poMey OR O 


pSISTYPE LEADING ZEROS 
pOSSUPPRESS LEADING ZEROS 


STYPON@ceeENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
STYPOS OR STYPOC 


CALLE 
MOV NUM, ©( SP) poNUMBER TO BE TYPED 
TYPON psCALL FOR TYPEOUT 
pea era HERE FOR TYPEOUT OF A 16 BIT NUMBER 
4 
MoV NUM, @( SP) peNUMBER TO BE TYPED 
TYPOC ppCALL FOR TYPEOUT 
7379 SOO PEC SOARES HEHE TE OEOREDE EOC ESOT UDOHO RET OGOSEOOMEDIOESIEDEOOS 


00000000000 600800 00000000008 0000000000000 000000000 000000000000000 
TRAP DECODER 
00660000 0000000000060 000000 00060000005000000000000000000000000000 


7383 THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP® INSTRUCTION 
AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
OF THE DESIRED ROUTINE, THEN USING THE ADDRESS OBTAINED IT WILL 
GO TO THAT ROUTINE, 


EEOC UFEOLSEHEE HDG LHOOHEEO DROS ESOEHDEE OO SOOESREH SEDO OESEORODHESOOS 
TRAP TABLE 
hehehehehe dd ddd dd bbb hhh hhibba bd phi tia tibia tr rri tii cirri cirri iii) 


7398 THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
BY THE "TRAP® INSTRUCTION, 


7418 POSSE HOGETET HOE VO OOSEE SESH FSOETHSOEOHGTSEGSODEISTOCVIOUGSOGDOOUGSD 
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7420 


OF OSES EECHSOOCEEECOSSESOOHOHOOODOOSHOLOOEHEECOOOOTSOHOSHESOOSOOS 
POWER DOWN AWD UP ROUTINES 
POOR OSOOHSEOOSEHEHOTOSOOOHEOESEOREESESESEOSOCOTOL OOOO OOEOEHOROEES 


7460 PSSOOS EOC HSSSSSSSSHHHSSSSSSESSOHSHOOHSHOSSHOHOHHHHOSHHHHOHOHHHHHOOOHEDO 
BESSIGERSGRSE HGH GE PESOS HE GHG OGPGD FSS OESHOOTHIGEHCHSGSFOHEEHOP OSE SBOGIIOD 


M2. 
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DERPTA,Pii € 
4176 eTITLE MAINDEC*{1¢DERPTACA 
qa) p@COPYRIGHT (C) 1975 o 
qi) s@DIGITAL EQUIPMENT CORP, 
(1) p@MAYNARD, MASS, 01754 
(1) s@ £ 
qi) s@PROGRAN BY SUB MALLICK 
(1) 3° 
(1) p@THIS PROGRAM WAS ASSEMBLED USING THE PDPei3 MAINDEC SYSMAC € 
+ P*PACKAGE (MAINDEC®11eDZQAC@AS), 
(1 ia 
4177 e 
4745 
qi) eSBTTL OPERATIONAL SWITCH SETTINGS 
(i) se € 
qi) 18 SWITCH USE 
(1) pe pevese SClCSVSSesSosVoeesseoee 
(1) s* iS HALT ON ERROR @ 
(i) ye 14 LOOP ON TEST 
(1) ye 13 INHIBIT ERROR TYPEOUTS 
(1) 9® ii INHIBIT ITERATIONS € 
(1) s@ 19 BELL ON ERROR 
(1) @ g LOOP ON ERROR 
a) 1 8 LOOP ON TEST IN BWR<759> é 
4746 19 7 STOP FURTHER COMPARES IF SWee I8 LOW 
4747 ;@ é ECC TESTeCOMPARE END RESULTS ONLY IF swee Is LOW ‘ 
474 
ca eSBTTL BASIC DEFINITIONS 
(i 
(1) P®INITIAL ADORESS OF THE STACK POINTER eee 1008 eee t 
qi) 001000 STACKs 3000 
(1) EQUIV EMT, ERROR p9BASIC DEFINITION OF ERROR CALL 
(1) efQUIV LOT, SCOPE ppBASIC DEFINITION OF SCOPE CALL c 
(1) 177776 pss 177776 p9PROCESSOR STATUS WORD 
(1) EQUIV PS,PEW 
(1) 177774 STKLMTe 177776 peSTACK LIMIT REGISTER c 
(1) 177772 PIRQs§ 4977772 ppPROGRAM INTERRUPT REQUEST REGISTER 
(1) 177570 SWRe 177870 ppSWITCH REGIOTER 
oa 1778708 OISPLAYSsur i 
(1 
qi) p®GENERAL PURPOSE REGISTER DEFINITIONS 
(1) veces Res 80 psGENERAL REGISTER € 
(1) eoe0e! Ris Ql peGENERAL REGISTER 
(1) 900002 R28 a ppGENERAL REGISTER 
qi) 000003 Ria a3 p9GENERAL REGISTER € 
qi) eoeeed Rae a4 peGENERAL REGISTER 
(1) 000005 Rae &S peGENERAL REGISTER 
qi) 000006 Pés a6 peGENERAL REGISTER @ 
(1) 000007 R78 a? peGENERAL REGISTER 
(1) EQUIV R6,SP ppSTACK POINTER 
+H eZQUIV RI,PC p9PROGRAM COUNTER € 
1 
(1) p@PRIORITY LEVEL DEFINITIONS 
(1) 000000 PReu r) pePRIORITY LEVEL © € 
(1) 008040 PRis 48 ppPRIORITY LEVEL 3 
€ 
ca e 
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DERPTA,Pil BASIC DEFINITIONS 
000100 PR28 160 pePRIORITY LEVEL 2 
000140 PRIe8 140 pOPRIORITY LEVEL 3 
000200 PR4a 200 pPPRIORITY LEVEL 4 
000240 PRS® 240 pePRIORITY LEVEL § 
000300 PR6S 300 pePRIORITY LEVEL 6 
000340 PR78 340 sePRIORITY LEVEL 7 
p@"SWITCH REGISTER" SWITCH DEFINITIONS 
100000 swiSe «100000 
040000 Swiée §=©640000 
020000 SWi3e §=©620000 
010000 svi2ze §616000 
004000 SWile 4000 
002000 Swiee § §=§=62000 
001000 swese §=1000 
000400 svete § §«400 
000200 svete 200 
000100 sweée §100 
000040 swese 646 
000620 swede 8628 
000010 sue3e §=630 
080004 sweze 64 
000002 sweis 2 
000001 Seen 


i 
eEQUIV 6wO9,8u9 
eEQUIV swOs, Sue 
eKQUIV 8WO7,8W7 
eEQUIV 8WO6,8W6 
eEQUIV sweS,8uS 
eKQUIV BWO4,8N4 
eZQUIV 8WO3,8"3 
eZQUIV 8002,8N2 
eZQUIV SWO1,861 
eEQUIV 8¥e0, SNe 


p@DATA BIT DEFINITIONS (BiTee To BrT1S) 


100068 BITiSs 190000 
040000 BITi4é=s 40000 
020000 BITi3°e 20000 
010000 BITiI2® 19000 
004000 BITi1© 4900 
002000 BITies 2000 
001000 BITe9s 1000 
000400 BITese 400 
000200 BITe7e 200 
000100 BITeée 100 
0000408 BITese 46 
000020 BITeds 206 
000018 BITe3}= 10 
000004 BITe2Ze 4 
000002 BITeie 2 
000001 BITees 


i 
eEQUIV BITO9,BITS 
eEQUIV BITOO,BITS 


FR FFL EFR FE FLFR FELL FAL APA PAPA PAPA PRP PAPA PAPA PA PAPA FR FRAP PRP FR FR FR FR FLFR FR FLFR FAR FR FR FRFRFR FR FA FRAPPR FO 
o> 6 6 6 &* &* FF &* G2 5 6 F* 62 F* 62 F* F* FF F FS FS 6 F* FF FS OF FF FF 1S GF FF FS FF F* F* FS F* F 2 6 F* FS FF £8 F* F* OF FF FO OO 
— oe ee ee ee ee ee ee ee ee es es es ee a ee ee ee a ee ee a ee ee a ee ae ae ee ee ee a 8 es es 
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eEQUIV BITO7,B81T7 
eEQUIV BITO6,BIT6 
eZQUIV BITOS,BITS 
eEQUIV BITO4,BIT4 
eEQUIV BITO3,BIT3 
eEQUIV BITO2,81T2 
eKQUIV BITO1,BIT1 
eEQUIV BITOO,BITO 


p@BASIC "CPU" TRAP VECTOR ADDRESSES 


000004 ERRVECe ¢ p9TIME OUT AND OTHER ERRORS 
00010 RESVEC® 10 PRESERVED AND ILLEGAL INSTRUCTIONS 
ecees4 TBITVECS14 pp°t* BIT 
800014 TRIVECS 14 ppTRACE TRAP 
e0oe14 BPTVECe 14 ppBREAKPOINT TRAP (BPT) 
oeec2e IOTVECs 20 peINPUT/OUTPUT TRAP (10T) eeSCOPECe 
000024 PWRVEC® 24 ppPOWER FAIL 
000030 EMTVECe 30 peEMULATOR TRAP (EMT) @@ZRRORGS 
000034 TRAPVECS34 p9°TRAP® TRAP 
000060 TKVECe 6¢e p9TTY KEYBOARD VECTOR 
000064 TPVECs 64 geTTY PRINTER VECTOR 
(1) 000240 PIRGVECS240 pPPROGRAM INTERRUPT REQUEST VECTOR ; 
4749 
4750 
$8 S8TTL TRAP CATCHER ; 
(i 
q1) e0c00e 220 
(1) p@ALL UNUSED LOCATIONS FROM 4 © 776 CONTAIN A *,¢2,HALT® 
qi) p@SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 4 
(1) p@LOCATION © CONTAINS @ TO CATCH IMPROPERLY LOADED VECTORS 
(1) 
(1) eSBTTL STARTING ADDRESS(ES) < 
(1) 000200 .3200 
(1) 
(1) 000200 600137 004226 MP @eDEGIN 99JUMP TO STARTING ADDRESS OF PROGRAN é 
4751 000210 .2210 
4752 000210 000137 0046210 JUMP @oBEGING JUMP SELECT TEST 
4753 P®STARTING ADDRESS 200 FOR NORMAL STARTS é 
4754 p@THIS WILL TEST ALL RPO4°S ON THE SYSTEM A SINGLE ORIVE AT A TIME 
4755 ge 
$796 . p@STARTING ADDRESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE ( 
475 
3 eSBTTL MEMORY MANAGEMENT DEFINITIONS P 
i 
(4) p®KTii VECTOR ADDRESS 
(1) 000250 MMVEC® 250 « 
(1) 
32 p@KTii STATUS REGISTER ADDRESSES ‘ 
i 
(1) 177872 shes 177572 
(1) 177574 sRie 177574 
(1) 177876 8r26 177576 < 
(1) 172516 GRje 1728136 
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= & 6 6 &* &* £* Ge 6 &* 62 6 G2 F GS F* £2 GS FS F* F* CO 
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a 

SS el 
yr 
ow 


4759 


172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 


172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 


001110 
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MEMORY MANAGEMENT DEFINITIONS 


P@KERNAL "I" PAGE DESCRIPTOR REGISTERS 


KIPDROe 
KIPDRis 
KIPDR2e 
KIPDR3e 
KIPDR4a 
KIPORSs 
KIPDR6s 
KIPDR7e 


peKERNAL "I" PAGE ADDRESS REGISTERS 


KIPARGs 
KIPARis 
KIPAR2s 
KIPAR3e 
KIPAR4e 
KIPARS® 
KIPARG6ea 
KIPART® 


172300 
172302 
172304 
172306 
1723108 
172312 
4172314 
172316 


172340 
172342 
172344 
172346 
172350 
172352 
172384 
172356 


~> 
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4760 PRFSOSCHESSPIHFERSVEH DG EHGTSFOSHRE OSE OSS SSEHELODOGSG HOG ESHOGEYVEHOO HOY 

(1) 
(1) eSBTTL COMMON TAGS 

(1) 

(1) p@THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS | 
by 9@USED IN THE PROGRAM, 

(1 

(1) 000046 9246 | 
+H 000046 023352 SENDAD peLOGICAL END OF PROGRAM 

(1 

(1) 001100 221100 | 
(1) 

(1) 001100 OCMTAG: 99START OF COMMON TAGS 

(1) 001100 ee0ee0 SPASSe ,WORD @ ppCONTAINS PASS COUNT | 
(1) 001102 200 CTSTNMs ,BYTE 06 p9CONTAING THE TEST NUMBER 

(1) 001103 ane SERFLG: ,BYTE 6 p9CONTAINS ERROR FLAG 

(1) 0043104 ee0800 SICNTs ,WORD 6 spCONTAINS SUBTEST ITERATION COUNT 

(1) 001106 900000 GLPADR: ,WORD 0 spCONTAING SCOPE LOOP 

(1) 001110 ee0000 GLPERR: ,WORD @© peCONTAINS SCOPE RETURN FOR ERRORS 

(1) 001112 eee0e0 SERTTLs ,WORD 6 ppsCONTAZNG TOTAL ERRORS DETECTED 

(1) 03114 200 SITENB; ,BYTE @ p9CONTAING ITEM CONTROL BYTE 

(1) 001118 aol GERMAXs ,BYTE 4 spCONTAINGS MAX, ERRORS PER TEST 

(1) 001116 600000 SERRPCs; ,WORD 06 ppCONTAING PC OF LAST ERROR INSTRUCTION | 
(1) 001120 eeece0 SGDADR: ,WORD © p9CONTAINS OF °GOOD® DATA 

(1) 001122 seece8 SBDADRs ,WORD @ s9CONTAINS OF °BAD® DATA 

(1) 001124 ee0000 SGDDAT: ,WORD 9 ppCONTAINS °GOOD* DATA 

(1) 001126 sve0ce SBDDAT: ,WORD 9 ppCONTAINS °BAD*® DATA 

(1) 001130 @000008 eeecee seoeee eWORD 6,000 ppRESERVEDeoNOT TO BE USED 

(1) ©01136 1778560 STKSs 177860 ppT?Y KBD STATUS 

(1) 001140 1778562 OTK: 477862 spTTY KBD SUFFER 

(1) 001142 177564 eTPSs 177564 g9TTY PRINTER STATUS REG, 

(1) @01144 177566 OTPBs 177866 peTTY PRINTER BUFFER REG, 

(1) 001146 ee ONULLs ,BYTE o@ p9CONTAING NULL CHARACTER FOR FILLS 

(1) 001147 002 SFILLSs ,BYTE 2 pe9CONTAING @ OF FILLER CHARACTERS REQUIRED 

(1) 0013150 012 OFILLCs ,BYTE 12 pe INSERT FILL CHARS, AFTER A *LINE FEED® 

(1) 004151 eae CTPFLG: ,BYTE 8 SO°TERNINAL AVAILABLE® FLAG (817<07>e0eyE£g) 

(1) 001152 seeces SREGADs ,WORD @ ppCONTAINS THE FROM 

(1) poWHICH (SREGQ) WAS OBTAINED | 
(3) 001154 eeecee SREGes ,WORD @ ppCONTAING ((COREGAD) @) 

(3) 001156 ee00e0 SREG{s ,WORD @ ppCONTAING ((6REGAD)¢2) 

(3) 0801160 e0ec0e0 GREG2: ,WORD @ s9CONTAINS ((COREGAD) +4) | 
(3) 001162 eeeeee GREG3: ,WORD 9 seCONTAING ((6REGAD) 06) 

(3) 001164 eeec00 SREG4s ,WORD 96 ppCONTAINS ((SREGAD) +19) 

(3) @01166 see90c0e0 GREGSs ,WORD 6 s9CONTAINS ((@REGAD) 012) | 
(3) 001170 ee00e08 eTMPes «6,WORD @ sp USER DEFINED 

(3) @01172 seecee STMP4s WORD @ 9pUSER DEFINED 

(3) 001174 see00e0 STMP2s ,WORD @ 99USER DEFINED 

(3) 601176 e9e0e0 STMP3s ,WORD @ 9pUSER DEFINED 

(3) 001200 eo0eee OTMP4s ,WORD @ 9pUSER DEFINED 

(3) 001202 eee0ee STMPSs ,WORD @ 99USER DEFINED | 
(1) 001204 ee00e08 OTIMES: @ poMAX, NUMBER OF ITERATIONS 

(1) 001206 e90e0e0 SESCAPELO ppESCAPE ON ERROR 

(1) 001210 177607 900377 SBELL2 ,ASCIZ €207>¢377><4377> ssCODE FOR BELL 

(1) 001214 77 SQUES: ,ASCII /?/ ppQUESTION MARK 
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(1) 001215 
(1) 001216 


COMMON TAGS 
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SCRLFt ,ASCII <15> 
OLFs eASCIZ <12> 


pOCARRIAGE RETURN 
s9LINE FEED 


nS 
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vo 
oe 
— 


ee a a ee ee) 
= & = 62 &* &* &* £2 G* FS Ge G* Fe Ge 
— ee ee ee ee ee a ee es 


(1) 601220 


4767 001220 640130 
4768 001222 642734 


4771. 
4772 001224 047054 
001226 047554 


4760 001230 0640213 
4762 001232 045720 


4790 001234 047426 
4791 001236 047717 


4795 001240 040213 
4797 001242 045475 


° @ © © @ © @ @ @ 6 C6 C6@ 6 6 6 LO6lhLUmtlhmhUOlmUCOlUCOlUhUlU 
a 
~~ 
ae 
esas 
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POOCCOEPSCOSSSOHOOOTOODOROHOOS OOOO OO OCOSOOCOOSOOHOOHESSOSOTODOOOOD 
eSBTTL ERROR POINTER TABLE 
p@THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR, 


p@THE INFORMATION I6 OBTAINED BY USING THE. INDEX NUMBER FOUND IN 
p@LOCATION GSITEMB, THIS NUMBER INDICATES WHICH ITEM IN THE TABLE 18 PERTINENT, 


ponOTESs IF SITEMB I8 @ THE ONLY PERTINENT DATA I8 (6ERRPC), 

p@NOTE2s EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
@ EM p9POINTS TO THE ERROR MESSAGE 

hd OH p9RPOINTS TO THE DATA HEADER 

s® oT s9POINTS TO THE DATA 

s@ oF pePOINTS TO THE DATA FORMAT 

GERRTBs 


PSSSSSHSHSHSETEHSSSHHSHHHHSHSHHSHHHOHHSHEHHOOHHHHOHHCOHOOHHOSHOSOOS 
i 


pITEM) 
EMi en: DATA IN READING OR WRITING HARDWARE REGISTER 
DH ] 
sREG, ADDR, 
9GO0D DATA 
pRECEIVED DATA 
OTi #9 SERRPC, REGADR, SGDDAT, SBDDAT 
Ori 9050,0,60,0 
pITEM2 
—EM2 pERROR OW DATA COMMAND 
DH33 9PC 
sPC OF JSR 
sTEST NO 
sWORD NO, 
9G00D DATA 
sCONTENTS OF RHCS) 
sCONTENTS OF RHDS{ 
sCONTENTS OF RHERY 
DT33 sSERRPC, PCUSR, OTETNM, ERWORD, OGDDAT,CS3,081,ER3 
DF33 9000080100.0.008 
pITEMS 
EM2 sERROR ON DATA COMMAND 
DH32 sPC 


z3 
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4798 
4799 
4800 
4801 
4802 
4803 
4804 
4805 
4806 
4007 
4808 
4809 
4810 
4011 
4812 
4013 
4014 
4015 
4816 
4017 
4018 
4019 
4020 
4021 
4022 
4823 
4024 
4825 
4826 
4827 
4828 
4929 
4930 
4631 
4832 
4633 
4034 
4035 
4836 
4837 
4030 
4039 
4840 
4041 
4042 
4843 
4044 
4845 
4046 
4047 
4048 
4049 
4050 
4051 


001244 
001246 


001250 
001252 


001270 
001272 


001274 
001276 


ERROR POINTER TABLE 


047402 
047706 


040213 
045273 


047360 
047676 


000000 
000000 
047360 
047676 


040242 
045475 


047402 
047706 
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sITEM4 


sITEMS 


sITEMG 


DT32 
DF32 


EM2 
DH31 


DT32 
DF32 


pPC OF JSR 

sTEST NO 

pWORD NO, 

9GOOD DATA 

pBAD DATA 
sCONTENTS OF RHCSi 
sCONTENTS OF RHDSi 
sCONTENTS OF RHERY 


pCERRPC , PCUGR, STSTNM, ERWORD, SGDDAT, SBDDAT,.C51,D81,ERi 


sERROR OW DATA COMMAND 


pPC 

sTEST NO 

sWORD NO, 

9G00D DATA 

pBAD DATA 
sCONTENTS OF RHCSi 
sCONTENTS OF RHDSi 
sCONTENTS OF RHER) 


pSERRPC , CTSTNN, ERWORD, SGDDAT+s CBODAT,/C81,081, ER) 
900003005010 .000, 


'] 
SSERRPC, OTSTNM, ERWORD, SGDDATs SBDDAT,CE1,D81,ER1 
900801080808 .008, 


pERROR OW WRITE HEADER AND DATA 


sPC 

pC OF JER 

sTESt NO 

pWORD NO, 

9G00D DATA 

s8AD DATA 
sCONTENTS OF RHCES 
pCONTENTS OF RHDS) 
sCONTENTS OF RHER) 


dSERRPC, PCUER, STETNM, ERWORD, SGODAT, SBDDAT,CS1,081,ERi 





v3 ( 
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4652 
4653 
4654 
4655 
4656 
4687 
4658 
4659 
4660 
4661 
4662 
4663 
4664 
4665 
4066 
4667 
4868 
4669 
4670 
4671 
4872 
4673 
4674 
4675 
4676 
4677 
4676 
4679 
4880 
4681 
4662 
4063 
4664 
4665 
4066 
4667 
4068 
4609 
4890 
4691 
4692 
4693 
4694 
4695 
4696 
4697 
4698 
4899 
4900 
4901 
4902 
4903 
4904 
4905 


601300 
001302 


001304 
001306 


001310 
001312 
001314 
001316 


001324 
001326 


001330 
001332 


001340 
001342 
001344 
001346 


ERROR POINTER TABLE 


340242 
043057 


047102 
047565 


000000 
200000 
047102 
047565 


040301 
043202 


047116 
047572 


640301 
642734 


047054 
047554 


000000 
000000 
047054 
047554 


040334 
043361 


ISeAPRe7S 17945 PAGE 4408 


pITEMT 


pITEMIO 


pTTEMis 


sITEMi2 
c 


pITEMI3 


sITEMI4 





ee ON WRITE HEADER AND DATA 

, 

sTEST NO 

pWORD NO, 

9GO00D DATA 

pBAD DATA 

pCERRPC , OTSTNM, ERWORD, OGDODAT, OBODAT 
9008010000, 


d 
PCERRPC, OTSTNM, ERWORD, SGODAT, OBDDAT 
900051 50,0, 


———— OR ORIVE STATUS 

'] 

sTEST NO 

sFAILING REG, ADOR 

sCONTENTS OF RHCS) 

sCONTENTS OF RHCSE2 

sCONTENTS OF RHDSS 

sCONTENTS OF RHERY 

SCERRPC , CTSTUN, SBDAOR,C83,CE2,084, ER) 
900808080008 


pWRONG DATA FROM SILO 


sPC 

pREG, ADDR 

9G00D DATA 

sRECELVED DATA 
sSERRPC, REGADR, SGODAT, SBDOAT 
960.6,0,0 


~ teens FAILED 
' 
pFAILING REG, ADDR 
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4906 
4907 
4908 
4909 
4910 
4911 
4912 
4913 
4914 
4915 
4916 
4917 
4918 
4919 
4920 
4921 
4922 
4923 
4924 
4925 
4926 
4927 
4926 
4929 
4930 
4931 
4932 
4933 
4934 
4935 
4936 
4937 
4938 
4939 
4940 
4941 
4942 
4943 
4944 
4945 
4946 
4947 
4948 
4949 
4950 
4951 
4952 
4953 
4954 
4955 
4956 
4957 
4958 
4959 


001364 
001366 


001370 
001372 


001374 
001376 


001400 


001402 


001404 


001410 


001412 


001414 
001416 


ERROR POINTER TABLE 


047136 
047601 


040354 
043563 


047160 
047641 


040425 
043605 


047166 
047643 


040446 


043724 


047202 


047637 


040472 


044107 


047222 
047626 
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sITEMIS 


sITEMi7 


sITEM20 


DT14 
DFi4 


DT15 
oris 


DT16 
DFi6 


EMi7 


DH47 


oT17 


DF47 


DT20 
OF20 





sCONTENTS OF FAILING REG, 

sCONTENTS OF RHCSi 

sCONTENTS OF RHCSE2 

sCONTENTS OF RHDSY 

sCONTENTS OF RHERI 

sGERRPC, SBDOADR, SBODAT,CS1,C82,081, ER) 
9000.6 ,0.0,0,0 


PEPECIFIED REG, NON EXISTANT SO ABORT 
# PROGRAM 

sPC 

pADDR, OF REG 

pSERRPC, TEMP) 

1600 


gWAIT LOOP FAILED 

yPC 

sWAT PC 

p8IT WANTED 

pREG, ADR, 

pREG, CONT, 

PSERRPC, OTHP), OTHP), OTHPG, GBODAT 
96000600 


pREGISTER FAILING 

spc 

9T8T NO 

sCONTENTS OF RHERY 

sCONTENTS OF RHERZ 

sCONTENTS OF RHER 

sCONTENTS OF RNAS 

sCONTENTS OF RNDSg 

pSERRPC,TSTNM ERY, ER2,ER3,A8,08i 
960.0,0,0,0,0,0 


L2 





= 


Se ee" 0" e 0 00 0°08 00 06 8' 0 0 6 0 0 0 el 
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49628 pITEM21 
4961 
4962 001420 040513 —EM21 sINTERRUPT FALLING 
4963 001422 044263 DH21i sPC 
49604 sTEST NO 
4965 sCONTENTS OF RHC84 
4966 sCONTENTS OF RHAS 
4967 sCONTENTS OF RHDS) 
4968 001424 0947242 DT21 sOERRPC, TSTNN,CE1,A8,084 
4969 001426 947635 or2i 9100810,0.0 
4970 
4971 
4972 pITEM22 
4973 001430 040535 £M22 sMISSMATCH IN DRIVE PRESENT 
4974 pLOOKING AT RHAS AND RNCS2eNED(81T032) 
4975 sORIVE PRESENT DO NOT AGREE 
4976 sNOTEs OW DUAL PORT SYSTEN 
4977 sORIVE ON OTHER PORT WILL NOT GIVE NED 
4978 pHENCE THERE WILL BE A MISSMATCH 
4979 SL 77777CNEANS NOT PRESENT 
4980 001432 644404 DH22 9eC 
4o8t sTEst NO 
4982 pRHAS UNIT 
4983 pRHCS2 UNIT 
4986 ? 
4985 001434 047256 DT22 sSERRPC, TSTHNS, SGODAT, OBDDAT 
4986 001436 047642 oFr22 9000,0.0 
4987 
4968 
4989 pITEM23 
4990 001440 900000 a sMIGSMATCH IN DRIVE PRESENT 
4991 pLOOKING AT RHAS AND Wma 
4992 pDORIVE PRESENT DO NOT AGREE 
4993 SAL7I7I77ICNEANS NOT PRESENT 
4994 001442 990000 @ 9PC 
4995 sTEst NO 
4996 pRHAS UNIT 
4997 sRHCS2 UNIT 
4998 g 
4999 001444 047256 pT22 pS CERRPC, TSTNNG » SGODAT, SBDDAT 
$000 001446 047642 DF22 9000,0,8 
$001 
$002 
$003 
$04 sITEM 24 
$005 001450 041130 £M24 #LOOK AMEAD REGISTER AT THE 
5006 pSEGINNING OF A SECTOR 16 IN 
$007 sCRROR 
S008 001452 044503 OH24 ppc 
$009 pRHDST 
$010 pBAD RHLA 
$011 9G00D RHLA 
$012 I SECTOR wo 
$013 pSECTOR CLOCK 


m3 


MAINDEC*11eDERPTASA MACYi1 27(657) 
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5014 
$015 
$016 
$017 
$013 
$019 
$220 
$021 
$022 
$023 
5024 
$025 
$026 
$027 
$028 
$229 
5230 
5031 
$032 
5033 
5034 
5035 
$236 
$037 
$038 
5039 
5040 
5041 
5042 
5043 
5044 
$e45 
5046 
$047 
$o4e 
5049 
$050 
5051 
5052 
5eS3 
$084 
5055 
$056 
5057 
5058 
5059 
5060 
$061 
5062 
5063 
5064 
5065 
5066 
5067 


001454 
001456 


001462 


001462 


001464 
001466 


001470 
601472 


001474 
001476 


001500 
001502 


001504 
001506 


001510 
001512 


ERROR POINTER TABLE 
047270 
047646 
041223 


044593 


047270 
047646 


040301 
044641 


047306 
047684 


040130 
045023 


047326 
047663 


041263 
045162 
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pITEM 25 


pITEM26 


pITEM27 


pITEM3O 


OT24 
DF24 


DH24 


DT24 
DF24 


EMi1 
DH26 


DT26 
DF26 


EM 
DH27 


DT27 
DF27 


pSERRPC,OST, SBODAT, OTMP1,6TMP2,6TMP3 
19,0,0,0,8 


sLOOK AHEAD REGISTER IS 
sIN ERROR 


pPC 

pRHDOST 

jBAD RHLA 

9GOOD RHLA 

#SECTOR NO 

sSECTOR CLOCK 
pSERRPC,DST, SBDDAT, TMP), STMP2,6TMP3 
1000000078 


SCONTROLLER OR DRIVE STATUS 


sPC 

sPC OF JSR 

SFAILING REGIGTER ADDRESS 
sCONTENTS OF RHC8S1 
sCONTENTS OF RHCS2 
sCONTENTS OF RHDS{ 
pCONTENTS OF RHERY 


pGERRPC, PCUSR, SBDADR,CS1,C82,051, ERI 
105070,050,8,5 


pERROR IN READING OR WRITING HARDWARE REGISTER 


PC 

PC OF JER 

pTEST NUMBER 
pPAILING REGISTER 
9GOOD DATA 
pRECEIVED DATA 


sCERRPC, PC JSR, TSTNM, REGADR, SGDDATs CBDDAT 
1020,0,0,0,8 


sCURRENT CYLINDER DOES NOT REFLECT DESIRED CYLINDER REG, 


pPC 

PC OF JER 
pREGISTER ADORESS 
sGO0D DATA 

sBAD DATA 


xy fjatehUlC hHhhlC(<C HOhlCtCP)/hheehCcCOhUCUrhHhhlC hHOhcC iC iihehmhlC hrehUlCUc OohlCFHhDPOehCh hHOhCi—Cr hHhPhehlhC OhC<é2: HhlC<‘ HhlhlCiC HhmhlCHhhhlhC HOhOUhlCFFhCsé A! 





5068 
5069 
$070 
$071 
$072 
$073 
$074 
$075 
5076 
$077 
$078 
5079 
$080 
5061 
$062 
5083 
5064 
$065 
5086 
$067 
$086 
$069 
$090 
$091 
$092 
5093 
5094 
$095 
5096 
$097 
$098 
5099 
5100 
5101 
5102 
$103 
5104 
$105 
5106 
$107 
5108 
5109 
5110 
Siti 
$112 
5113 
5114 
5115 
5116 
$117 
$118 
5119 
5120 
$121 


001514 
001516 


001524 
001526 


001532 


001534 
001536 


001540 
001542 


001544 
001546 
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047344 
047671 


041405 


046131 


047450 
047727 


041530 


046304 


047470 
047736 


642014 
046500 


047512 
047746 


MACY31 27(657) 
ERROR POINTER TABLE 
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DT30 


OF3e 


bT34 
OF34 


bT35 
DF35 
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#GERRPC, PCUSR, REGADR, SGDDAT, OBDDAT 
1050,0,0,08 


pECC GENERATED 18 INCORRECT 


pEVERY WORD IN THIS SECTOR 18 GIVEN IN "DATA USED" 


ppc 

TEST NUMBER 
96000 ECCi 
96000 E¢cac 
PWRITTEN ECC Y 
pWRITTEN ECC2 
sDATA USED 


PCERRPC, TSETNM, GECC1 , GECC2, WECC1, WECC2, DISK 
$0.0,0,0,0,0,0 


pON READ COMMAND AFTER DATA AND ECC HAVE BEEN READ 


pECC REGISTER OR RHER] 38 IN ERROR 

pONLY LOWER 43 BITS OF PATTERN REGISTER 
gCAN BE READ 

sTHIS SHUOLD MATCH LOWER 43 BITS OF ECC, 


9PC 

TEST NUMBER 
9G00D ECCi 

sG00D ECC? 
pPATTERN REGIGTER 
pRHERG 


sOERRPC, TETNN, GECC1, GECC2,£EC2, ER) 
$00,0,0,0,0 


a COUNT BIT NOT HIGH AFTER 36859 CLOCKS 


’ 

s0C OF JER 

STEST NUMBER 
pRUMR 

pPOSITION REG, 
sPATTERN REGISTER 


pSERRPC, PCUSR, TOTNM, MR, ECL, EC2 
$070,0,0,0,0 


~ 





e © 
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e DERPTA,P11 ERROR POINTER TABLE G 
$122 
$123 sITEMSG e 
@ 5124 01550 042066 EM36 p2ERO CETECT BIT NOT HIGH WHEN THE 
$125 $32 BIT ECC REGISTER HAS ITs 213 BITS 
$126 OF ZEROS & 
e $127 pERROR PRINTOUT WILL CONTINUE TILL 
5128 p8ERO DETECT BIT 18 HIGH 
5129 081552 046800 DHI6 PC fa 
& $130 pPC OF JER 
$131 pTEST NUMBER 
$132 pRHMR ra 
@ 5133 POSITION REG, 
$134 pPATTERN REGISTER 
$135 ® 
& S136 001554 047512 D136 )GERRPC, PCUSR, TOTNN, MR, ECL, EC2 
i 
$138 001556 047746 DF36 902070 ,0,0.0 © 
@ $139 
5140 
| $141 o 
| 5142 pITEN3S 
5143 001560 042161 EM3S pPOSITION REGISTER OR 313 BITS OF 
$144 pPATTERN REGISTER INCORRECT ray 
@ 5145 pLOWER 93 BITS OF PATTERN REGISTER 
$146 pSHOULD MATCH LOWER 44 BITS OF GOOD Ecc, 
e $147 pOATA ENVELOPE AND NeCODE SEROS ARE IN DECIMAL © 
514 
5149 001562 046636 DH}? PC 
5150 sTEST NUMBER C 
@ $1S1 sECC POSITTON 
$152 9G000 POS. ION 
$153 96000 ECCi a 
3 5184 96000 ECC2 
$155 . pECC PATTERN 
5156 pDATA ENVELOPE © 
Q $15? pNeCODE BEROS 
$15 
° sis9 001564 047530 p13? pSERRPC, TETNM, ECA, POSITI, GECC1, GECC2, EC2,DATENV, ECODE ° 
i . 
$161 001566 947754 pF}? 9000000000 100010,8 
i 
i) 5163 e 
$164 
5165 pITENI6 © 
@ 5166 001570 042460 EM36 pON A READ COMMAND WITH NON CORRECTABLE 
5167 pERROR INSERTED DCK AND ECH SHOULD BE SET 
$168 901572 046304 DH3S spc Cc 
Q 5169 pTEST NUMBER 
5170 sGO0OD ECCy 
$174 8G00D ECC2 © 
a $172 pPATTERN REGISTER 
$173 1postTiON REGISTER 
5 pRHER 
@ $175 o 
e Cc 
eo 





' 


$176 
$177 
$178 
$179 
5180 
5161 
$162 
5163 
5164 
$165 
5166 
$1867 
5168 
5169 
5190 
5191 
$192 
5193 
5194 
$195 
5196 
$197 
$198 
5199 
5200 
$203 
$202 
$203 
$204 
$208 
5206 
$207 
5208 
$209 


001574 
001576 


201604 
001606 


001610 
001612 
001614 
001616 
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ERROR POINTER TABLE 
047470 
047736 


045273 


047360 
047676 


000000 
0000008 
647360 
047676 


ISeAPRe75 17945 PAGE 44°14 


pITEM37 


pI TEN4O 


DT35 
OF3S 


EM}? 


DH31 


sSERRPC, TSTNM, GECC1,GECC2,£EC2,EC1, ERI 
90+0,0,0,0,0,6 


pERROR ON DATA COMMAND 
sWITH AiG AX? USED 


spc 

sTEST NO 

9GOOD DATA 

sBAD DATA 
sCONTENTS OF RHCSi 
pCONTENTS OF RHDSi 
sCONTENTS OF RHERY 


SCERRPC, OTETNM, ERWORD, SGDDAT, OBODAT,CE1,081,ER3 
900001500050 10080, 


: 
PSERRPC, STSTHN, ERWORD, OGODAT, CBDDAT,CO1,081,ERi 
9000015050 ,0,0,0, 


i, @a 04 064 040 0 0a 06 04 0 0 084 0 @4 
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5259 000001 
5260 000100 
5261 000200 
5262 000400 
$263 001000 
5264 002000 


MACY11 27(657) 
DERPTA,Pil ERROR POINTER TABLE 


ISeAPRe75§ 


178485 PAGE 44°15 


pRHIi REGISTERS 


sWORD COUNT REGISTER (RHWC) 


pEACH BIT I8 CALLED BY BIT NUMBER 


9BUS ADDRESS REGISTER (RHBA) 


pEACH BIT 18 CALLED BY BIT NUMBER 


pCONTROL AND STATUS REGISTER 2 (RHCS2) 


Usis 
U8s2s 
Uses 
BAIs 
PATS 
CLAS 
IRe 

ORs 


100000 
SDATA BUFFER REGISTER (RHDB) 


pUNIT SELECT (BIT 08) 
sUNIT SELECT (BIT 61) 
pUNIT SELECT (BIT 62) 


9BUS ADORESS SECRENENS SHNIOET ven (bat 04) 


pINVERT PARITY OW MASS BUS TO E 
CLEAR (BIT 66) 

pINPUT READY (BIT 06) 

pOUTPUT READY (BIT ¢7) 

pMASS BUS PARITY ERROR (BIT 08) 
pMISSED TRANSFER ERAOR (BIT 09) 
pPROGRAM ERROR (BIT 016) 

pNON EXISTANT MEMORY (BIT 041) 
pNOM EXIGTANT DAIVE (SIT 042) 
pUNZBUS PARITY ERROR (BIT 043) 
WRITE CHECK ERROR (BIT 014) 
pOATA LATE (BIT 035) 


pEACH BIT I8 CALLED BY BIT NUMBER 


pRPO4 REGISTERS 


pCONTROL AND STATUS 1 REGISTER, (000) 


GOs 
Its 
RDYs 
Al6e 
Ai7e 
PSELa 


9GO (BIT 68) 

sINTERRUPT ENABLE (BIT 06) 
READY (BIT 07) 

SHIGH ORDER UNIBUS BITS (BIT 08) 
sHIGH ORDER UNIBUS BITS (BIT 69) 
pPORT SELECT (BIT 010) 


- 
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$265 004000 
$266 020000 
$267 040000 
5268 100000 
5269 

$270 

$271 

$272 000001 
$273 009002 
$274 000004 
$275 000016 
$276 000020 
$277 000046 
5278 000100 
$279 000200 
5280 000400 
$281 001000 
$282 002000 
5263 004000 
5264 010000 
5265 020000 
5286 040000 
$267 100000 
3268 

5289 

5290 000001 
5291 0800002 
$292 000004 
5293 0000108 
5294 000020 
5295 000040 
5296 000100 
$297 000200 
$298 000400 
5299 001000 
5300 002000 
5301 004006 
5302 010000 
5303 020000 
5304 040000 
5305 100000 
5306 

5307 

5308 

$309 070001 
5318 080002 
$311 600004 
5312 000016 
5313 600020 
5314 000040 
5315 000200 
5316 000400 
5317 001000 
5318 


REGISTER (RHDS1) (061) 


ISeAPRe75 
DVAs 4000 
MCPEs 20000 
TREe 42000 
8Cs 100000 
pSTATUS 

OFrse i 
OFF26e 2 
OrIGBe 4 
GRVs 16 
DOLé4s 20 
DEis 48 
VV¥e 100 
ORYs 200 
OPRe 406 
PROGs 1000 
L8Te 2000 
WRU 4000 
MOLS 10000 
PIpe 20000 
ERR@ 40000 
ATAs 109000 


pERROR REGISTER 603 (RHERI) (802) 
ILfe i 


TLAs 
RMRO 
PARS 


17345 PAGE 44°16 


pDEVICE AVAILABLE (BIT 611) 
SMASSBUSS PARITY ERROR (BIT 013) 
PTRANSFER ERROR (BIT 044) 
pSPECIAL CONDITION (EST 0458) 


a 
ee oe 


SORIVE FORWARD S°/SEC, (BIT 60) 
SDRIVE FORWARD 20°/8EC, (BIT 61) 
sORIVE TO INNER GAVRD BAND (BIT 62) 
9GO REVERSE (BIT 63) 

sDIFFERENCE LESS THAN 64 (BIT 64) 
sOIFFERENCE EQUALS 1 (BIT 65) 
pVOLUME VALID (BIT 66) 

sORIVE READY (BIT 67) 

pORIVE PRESENT (BIT 06) 
SPROGRAMABLE (BIT 09) 

LAST SECTOR TRANSFERRED (BIT 010) 
pWRITE LOCK (BIT 041) 

SMEDIUN ONCLINE (BIT 61 


2) 
pPOSITIONING OPERATION IN PROGRESS (BIT 0143) 


sCOMPOSIT ERROR, (BIT 014) 
SATTENTION ACTIVE (BIT 015 


pILLEGAL FUNCTION (BIT 66) 
pILLEGAL REGISTER (BIT 63) 
PREGISTER MODIFICATION REFUSED (BIT 62) 
pPARITY ERROR (BIT 63) 

SFORMAT ERROR (BIT 64) 

pWRITE CLOCK FAIL (BIT 08) 

sECC HARD BRAOR (BIT 06) 

) HEADER COMPARE ERROR (BIT 07) 
pHEADER CRC ERROR (BIT 86) 
pADDRESS OVERFLOW ERROR (BIT 09) 
SINVALID ADDRESS ERROR (BIT 016) 
SWRITE LOCK ERROR (BIT 011) 
pORIVE TIMING ERROR (BIT 012) 
SOPERATION INCOMPLETE (SIT 013) 
sDRIVE UNSAFE (BIT 014) 

pDATA CHECK ERROR (BIT 15) 


SMAINTAINABILITY REGISTER (RHMR) (003) 


SDIAGINOSTIC MODE (BIT 66) 
pMAINTAINABILITY CLOCK (BIT 61) 
pMAINTAINABILITY INDEX (BIT 02) 
pMAINTAINABILITY SECTOR CLOCK (BIT 03) 
sMAINTAINABIUITY READ (BIT 04) 
sMAINTAIWABILITY WRITE (BIT 05) 

pDATA ENVELOPE (8IT 67) 

ZERO DETECT (BLT 08) 

pMAINTAINABILITY SYNC DETECTED (BIT 09) 


MACY13 27(657) 


ERROR POINTER TABLE 


MAINDEC®{ 1 eDERPTASA 
DERPTA,Pii 

5319 

$320 

$321 000001 
$322 000002 
$323 000004 
$324 0000106 
$325 000020 
$326 000040 
$327 000100 
5328 000200 
5329 

$330 

$331 

$332 

5333 

5334 

$335 

5336 000001 
$337 000002 
5338 000004 
5339 000010 
5340 000020 
3341 000040 
3342 000100 
5343 000200 
5344 000400 
5345 001000 
5346 0020008 
5347 004000 
5348 010000 
5349 020000 
5350 040000 
5351 100000 
$352 

$353 

5354 

5355 000001 
5356 000002 
$357 000004 
$358 000016 
5359 000020 
5360 000046 
$361 000100 
$362 000200 
5363 000400 
5364 001000 
$365 002000 
5366 004000 
$367 010000 
5368 020000 
5369 1600000 
$370 

$371 


$372 


ISeAPRe7§ 


pATTENTION SUMMARY PSEUDOCREGISTER (RHAS) 


pDESIRED SECTOR/TRACK ADDRESS REGISTER (RHDST) 
sEACH BIT I6 CALLED BY BIT NUMBER 


17445 PAGE 44¢17 


(064) 


sDEVICE 8 
DEVICE 4 
sDEVICE 2 
sDEVICE 3 (BIT 63) 
sDEVICE 4 
sDEVICE § 
pDEVICE 6 
sDEVICE 7 


(ei) 


pORIVE TYPE REGISTER (RHDT) (906) 
pEACH BIT I6 CALLED BY BIT NUMBER 
pLOOKeAHEAD REGISTER (RHLA) (607) 


TRKi 9s 
TRK292 


weys 
Csfe 
wsUs 
Cave 
M8Es 
TOFe 
TUrs 
FENe 
WRUS 
MHga 
NHgs 
IxEs 
VvU3es 
PLUs 
Acus 


REGISTER 62 (RHER2) (816) 


pOFFSET REGISTER (RHOF) (811) 


ps EXTENSION 
pEXTENSION 


pEXTENSION 
pEXTENSION 


i (BIT 66) 
2 (BIT 61) 
pEXTENSION 3 (BIT 062) 
4 (BIT 63) 
S (BIT #4) 


pEXTENSION 6 (BIT 0S) 


pSECTOR COUNT FIELD 6 
pSECTOR COUNT FIELD 4 


pSECTOR COUNT FIELD 
sSECTOR COUNT FIELD 


pSECTOR COUNT FIELD 4 


pTRACK FIELD 4 (BIT 
sTRACK FIELD 2 (BIT 
STRACK FIELD 3 (BIT 
STRACK FIELD 4 (BIT 6 
STRACK FIELD § (BIT 


(BIT 66) 
(BIT 67) 
2 (BIT 68) 
3 (BIT 69) 
(8IT 836) 
011) 


018) 


OWRITE CURRENT UNSAFE (BIT 66) 
sCURRENT SINK FAILURE (BIT 01) 
pWRITE SELECT UNSAFE (BIT 62) 
sCURRENT SWITCH UNSAFE (BIT 63) 
sMOTOR SEQUENCE ERROR (BIT 04) 


STRANSITIONS DETECTOR FAILURE (BIT 0S) 


pTRANSITIONS UNSAFE (BIT 06) 
sFAILSAFE ENABLED (SIT 67) 
SWRITE READY UNSAFE (BIT 08) 
sMULTIPLE HEAD SELECT (BIT 69) 
9NO HEAD SELECTION (BIT 610) 
pINDEX ERROR (BIT 013) 

p3OVOLT UNSAFE (BIT 642) 

pPLO UNSAFE (8IT 013) 


pACUNGAFE (BIT 645) 


EE Ee ee eee eee eee eee ees 
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$373 000001 OF2Se jj pOFFSET 25 MICRO INCHES (BIT 06) 

$374 220002 OFS@=n 2 pOFFSET S@ MICRO INCHES (BIT 01) 

$375 000004 OFiges «4 pOFFSET 160 MICRO INCHES (BIT #2) 

$376 000010 OF2eee i190 sOFFSET 20@ MICRO INCHES (BIT #3) 

$377 000020 OF4éee2 20 sOFFSET 400 MICRO INCHES (BIT 04) | 
5376 000040 OFéees 40 pOFFSET 800 MICRO INCHES (BIT 65) 

$379 

$360 0202028 OFREVe 200 SOFFGET NEGATIVE (REVERSE) (BIT 67) | 
$301 002000 HCIs rT 1]. SHEADER COMPARE INHIBIT (BIT 810) 

$362 004000 ECIs 4020 SERROR CORRECTION CODE INHIBIT (BIT 0141) 

$363 010000 FMT22e 16000 pFORMAT BIT (BIT 012 

$364 

5365 SDESIRED CYLINDER ADDRESS (RHCA) (012) 

5366 pEACH BIT IS CALLED BY BIT NUMBER, ( 

$387 sCURRENT CYLINDER ADDRESS (RHCC) (043) 

5368 pEACH BIT IS CALLED BY BIT NUMBER 

53869 pSERIAL FUMBER REGISTER (RHSN) (014) ( 

5390 pEACH 238 CALLED BY BIT NUMBER 

toe pERROR REGISTER 063 (RHER3) (815) 

$3 ( 

$393 000001 PsUs i #PACK SPEED UNSAFE (BIT 66) 

$394 000002 vUFe 2 pVELOCITY UNSAFE (BIT 64) 

5395 000010 UWRe 16 pANY UNSAFE EXCEPT READ/WRITE (BIT #3) \ ( 

5196 000020 PRES 268 sO26K PACK ROTATION ERROR (BIT 04) 

$397 ereoeo ACLe ag pAC LOW (BIT 6S) 

5398 000100 DCLe 100 sDC LOW (BIT 06) | 

$399 e40008 8Klie 40000 pSEEK INCOMPLETE (BIT 014) 

cone 100000 OCYLs 106000 pOFF CYLINDER (BIT 048) 
401 

$402 pECC POSITION REGISTER (RHECI) (016) 

$403 sEACH BIT 16 CALLED BY BIT NUMBER 

5404 pECC PATTERN REGISTER (RHEC2) (047) 4 

$405 pEaCH BIT IS CALLED BY BIT NUMBER 
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5407 
5408 
5409 
5410 
$411 
$412 
$413 
5414 
$415 
5416 
$417 
5418 
5419 
5420 
5421 
$422 
$423 
5424 
$425 
5426 
$427 
5428 
$429 
5430 
5431 
5432 
5433 
5434 
5435 
5436 
$437 
5438 
5439 
5440 
5441 
5442 
5443 
5444 
$445 
$446 
5447 
5448 
5449 
$450 
5451 
5452 
5453 
5454 
5455 
5456 
5457 
5458 
$459 


001622 
001624 
001626 
001630 


001632 
001634 
001636 
001640 
001642 
001644 
001646 
001650 
001652 
001654 
001656 
001660 
001662 
001664 
001666 
001670 


ERROR POINTER TABLE 


176722 
176762 
176704 
176748 


176760 
176734 
176766 
176740 
176732 
176734 
176742 
176746 
176724 
176742 
176726 
176730 
176744 
176746 
176720 
176736 
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eSBTTL REGISTER ADDRESSES 


sRPO4 VECTOR ADDRESS 
RPVEC? 254 


pRPO4 VECTOR ADDRESS 


sRPO4 DISK 21/0 REGISTERS LOCATED IN THE RH11 CONTROLLER 
pNOTEs THE CONTENTS OF THESE LOCATIONS WILL BSE DIFFRENT 
’ If THE "CHANGE BASE ADDRESS" ROUTINE I8 USED, 

i THIS ROUTINE STARTS AT LOCATION TAGED *pASECH® 


RUDBs 86176722 
RHWCs 4176702 
RHBAs 476704 
RHCS2: 476748 


sDATA BUFFER SEE HOTE ABOVE 
pWORD COUNT SEE NOTE ABOVE 
9BUS ADORESS SEE NOTE ABOVE 
sCONTROL AND STATUS 2 SEE NOTE ABOVE 


pRPO4 DISK 3/0 REGISTERS LOCATED IN THE RPO4 DEVICE LOGIC 
pNOTEs THE CONTENTS OF THESE LOCATIONS WILL BE DIFFRENT 
} IF THE "CHANGE BASE ADDRESS ROUTINE I6 USED, 

i THIG ROUTINE STARTS AT LOCATION TAGED *BASECH® 


RuCSit 6176700 
RHERis 176714 
RHDSTe 176706 
RHER28 176740 
RHOFS 176732 
RHCAS 176734 
RHER3$ 1476742 
RHASS 176736 
RHMRS 176724 
RHDSi8 4767142 
RHDTs 176726 
RHENs 176730 
RHECiS 176744 
RHEC2s 176746 
RHLAS 176720 
RHCCs § §=6176736 


SCONTROL AND STATUS an A. NOTE ABOVE 
pERROR @3 SEE NOTE AB 

pOESIRED SECTOR/TRACK ADDRESS SEE NOTE ABOVE 
sERROR 02 SEE NOTE ABOVE 

sOrrée? See NOTE ABOVE 

sDESIRED CYLINDER ADDRESS SEE NOTE ABOVE 
sERROR 63 GEE NOTE ABOVE 

pATTENTION SUMMARY SEE NOTE ABOVE 
pMAINTAINABILITY SEE NOTE ABOVE 

sORIVE STATUS SEE NOTE ABOVE 

sORIVE TYPE SEE NOTE ABOVE 

SSERIAL NUMBER SEE NOTE ABOVE 

pECC POSITION SEE NOTE ABOVE 

sECC PATTERN SEE NOTE ABOVE 

pLOOKeAHEAD SEE NOTE ABOVE 

sCURRENT CYLINDER ADDRESS SEE NOTE ABOVE 
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5461 
$462 
5463 
$464 
$465 
5466 
5467 
5468 
5469 
$4708 
$471 
$472 
5473 
5474 
5475 
5476 
$477 
5478 
5479 
54860 
54681 
5462 
$483 
5464 
5465 
5486 
54867 
5468 
5469 
5490 
5491 
5492 
5493 
5494 
5495 
5496 
$497 
5498 
5499 
5500 
$501 
$502 
5503 
5504 
5505 
5506 
$507 
5508 
5509 
5510 
$511 
5512 
5513 
5514 


001672 
001674 
001676 
001708 


001702 
001704 
001706 
001710 
001712 
001714 
001716 
001720 
001722 
001724 
001726 
001730 
001732 
001734 
001736 
001740 


001742 
001762 
001764 
001766 


001770 
001772 


001774 


001776 


MACY11 27(657) {iSeAPRe75 


REGISTER ADDRESSES 


17845 PAGE 44°20 


pTHE FOLLOWING LOCATIONS ARE RESERVED FOR REGISTERS 
pANY TIME THERE 36 AN ERROR ALL THESE WILL BE FILLED 
pONLY SOME MAY BE PRINTED BUT ALL WILL BE FILLED TRUE 
pFOR THE TIME JUST AFTER THE “ERROR® ERROR COMMAND 


DBs 
we 
BAS 
C828 


Céit 
ERis 
DSTs 
ER28 
OFs 
CAs 
ER3s 
Abt 
MRE 
Dsit 
OTs 
6Ns 
ECis 
EC2s 
LAS 
cca 


UNITSs 
UNITS 
NOUNITs 
NUNITS 


SELECT: 
UNITSLs 


ERFLGSs 


SAvDTs 


GAVENG 


eBLKw 
eWORD 
eo WORD 
e WORD 


sDATA BUFFER 
pWORD COUNT 
p8US ADDRESS 
sCONTROL AND STATUS 2 


sCONTROL AND STATUS 1 
pERROR 01 

sDESIRED SECTOR/TRACK ADDRESS 
pERROR 02 

pOFFSET 

sOESIRED CYLINDER ADDRESS 
gERROR 03 

pATTENTION SUMMARY 
pMAINTAINABILITY 

sORIVE STATUS 

sORIVE TYPE 

PSERIAL NUMBER 

pECC POSITION 

sECC PATTERN 

pLOOKeANEAD 

pCURRENT CYLINDER ADDRESS 


pTHIS I8 FILLED WITH o3 

pUNIT UNDER TEST 

pNUMBER OF UNITS PRESENT 

pUSED TO KEEP TRACK OF UNIT UNDER TEST 
pUSED TO DETERMIN IF THERE ARE NORE 
pTHAN ONE UNIT 

pALL ONES INDICATE UNIT TO BE SELECTED 
pUNIT NO, SELECTED 


pERROR FLAG 


pSAVE DRIVE TYPE REGISTER 

sFOR COMPARIGON IN DRIVE CLEAR TEST 
pAND RH INIT TEST 

pSAVE SERIAL NUMBER REGISTER 

pFOR COMPARIGON IN DRIVE CLEAR TEST 
pAND RH INIT TEST 


cu ¢ 
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5515 
5516 
$517 
5518 


082010 


002016 


MACY11 27(657) {SeAPRe75 


REGISTER ADDRESSES 


PCJSR: 0 


ATTENT?: © 


TOTALATs 


TMPILL: © 


teeccs @ 


TESOTES 0 
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pSAVE PC OF JSR WHICH GAVE THE ERROR 


pATTENTION BIT FOR PRESENT UNIT 
® pTATAL ATTENTION BITS 


STEMPORARY ILLEGAL FUNCTION 


pFLAG TO Gay IF ECC TEST OR HOT 
pWHEN 0177777 IT I6 AN ECC TEST 
sWHEN aolT 36 NOT AN ECC TEST 


SFLAG TO SAY IF DAIVE TIMING ERROR OR NOT 
gWHEN @ 477777 IT 18 A OTE TEST 
pWHEN © 6 IT 36 NOT A DTE TEST 


STEMPORARY TAG USED IN ORIVE TIMING 
sERROR TEST 


K 
7 





axa 2a a & ia Oe Cee G@& G&ehlCKemllCUOKUmlCKWmlC KRU UmCRKRrmlC HC KUlmlCCUDUUlmCNC CMF 
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DERPTA,Pii REGISTER ADDRESSES 
5539 
5840 
aan pFUNCTION EQUATES 
$4 
5543 STABLE OF FUNCTIONS FOR RHCSi THEN "GO" BIT HAS TO BE SET 
$544 002020 FUTABL3 
5345 002020 900000 WOPERA: @ sNO OPERATION 
5546 002022 080062 UNLOADs 2 pUNLOAD (STAND BY) 
5347 002024 900006 RECALI’ 6 pRECALIBRATE 
5548 0602026 000010 OCLEARs 10 sORIVE CLEAR 
5549 002030 000012 RELEAS: 12 PRELEASE (DUALeCPORT OPERATION) 
5550 002032 000030 SERCHs 30 pBEARCH COMMAND 
5551 002034 900050 WRCHEKs 80 sWRITE CHECK DATA 
5552 002036 000052 WRCHDTs $2 sWRITE CHECK HEADER AND DATA 
5553 602040 900060 WRIDAT? 60 sWRITE DATA 
5554 002042 000062 WRIFORS 62 pWRITE HEADER AND DATA (FORMAT) 
5555 002044 600070 READATs 70 READ DATA 
5556 0802046 600072 REFOR: 72 pREAD WEADER AND DATA 
5557 002050 900004 SEECOMs 4 pSEEK COMMAND 
5558 002052 600014 OFSETCs 14 sOFFSET COMMAND 
5559 002054 600016 RETCLS 16 PRETURNTO CENTERLINE 
55628 002056 600022 PRACKs 22 sPACK ACKNOWLEDGE 
5561 002060 090020 READING 20 pREAD In 
5562 602062 #890000 ILLEGLs ,WORD sCOMPUTED ILLEGAL FUNCTION 
5563 
5564 sDATA BUFFER FOR READ WRITE 
5565 002064 000422 WRFROMs ,BLKW 274, sWRITE FROM THIS BUFFER 
$566 003130 900422 REINTOs ,BLKW 274, sREAD INTO THIS BUFFER 
5567 004174 900000 TSTNMS @ pTEST NUMBER 
5568 004176 900008 FIRST: © gIF SERO WILL TYPE HEADER 
$569 ptf ONES WILL NOT TYPE HEADER 
5570 
5571 
5572 STABLE FOR ATTENTION BITS 
$573 pATTENTION TABLE 
$574 004200 001 682 004 ATABLES ,BYTE 1620401020040. 100,200 
004203 0108 020 e40 
004206 168 206 
5575 


~xyHaemlCtemlmlCKelC KCC elC Klett CK HC aH alia la —C ia ia“ lili Kia lili 
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$s77 
5578 


ed ee ee ee ee ed ee el 
Oe > Se he hs BR Pe ee BO ER Rt EP 
— oe ee Ow Oe Oe ee we ee ee ee es es es 


004210 
004216 
024220 


004224 
004224 
004232 
004236 
004240 
004244 
004246 
004252 
004260 
004266 
004274 
004302 
004310 
004316 
004324 
004332 
004336 
004342 
004350 
004356 


004364 
004372 
004400 
004404 
004410 
004412 
004414 
094420 
004420 
004424 


004524 
004524 
004530 


004604 
004604 
004610 


004664 
004664 
004670 


004752 
004752 
004756 


MACYi1 


REGISTER TEST 


012737 
000402 
003037 


012737 
012706 
005026 
022706 
001374 
012706 
012737 
012737 
012737 
012737 
012737 
042737 
012737 
012737 
005067 
005067 
112767 
012767 
012767 


012767 
012777 
004737 
005737 
001003 
000402 
000137 


104408 
000437 


104400 
600425 


104400 
000425 


104400 
000430 


104400 
000414 


4177777 
001770 


001000 
035460 
600340 
037152 
600340 
037716 
000340 
637764 
000340 
174646 
174644 
00000; 
6046350 
084356 


600000 
035416 
836424 
004176 


004612 


004672 


004760 


27(687) 


0017708 


177776 


174548 
174530 
174524 


173404 
178220 
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START? 


6768 
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eSBTTL REGISTER TEST 


MOV @o1,@0SELECT 
BR START 

CUR OeSELECT 
MOV 0340,00PS8 
MOV OOCMTAG, RG 
CLR CRE) 

CMP STKE, RE 
BNE a) 

MOV @STACK, SP 
MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR OTINES 
CLR GESCAPE 
MOVB @1,S8ERMAX 
MOV @,.0SLPADR 
MOV Oe SLPERR 
MOV Ge,P8 

MOV @ORPVECT, ORPVEC 
JSR PC, OOSTKINT 
T8T OoFzIRsTt 
BNE as 

BR 2s 

JMP OeSND) 
TYPE eo o%4 

BR 648 

99, A8CIZ 

TYPE 0904 

BR 6S6 

99 eASCIZ 

TYPE oe%4 

BR 666 

99, ASCIZ 

TYPE o 04 

BR 676 

99 ,A8CIZ 

TYPE 004 

BR 608 


SSELECT UNIT 


p00 NOT SELECT UNIT 
pNORMAL RUN 


9pLOCK OUT ALL INTERRUPTS 
poFIRST LOCATION TO BE CLEARED 
psCLEAR MEMORY LOCATION 

9 DONE? 

99L00P BACK IF NO 

ppSETUP THE STACK POINTER 


OSSCOPE,OCIOTVEC »;IOT VECTOR FOR SCOPE ROUTINE 
0340, O08T0TVECe2 psLEVEL 7 

OSERROR, OOENTVEC », ENT VECTOR FOR ERROR ROUTINE 
0340, 00ENTVECe2 seLEVEL 7 

OSTRAP,OOTRAPVEC 4) TRAP VECTOR FOR TRAP CALLS 
0340, 00TRAPVECO2;LEVEL 7 

COPWRON, COPWRVEC »;POWER FAILURE VECTOR 

0340, 00PWRVECS2 NeLEVEL 7 


peTNITIALIZE NUMBER OF ITERATIONS 
peCLEAR THE ESCAPE ON ERROR ADDRESS 
spALLOW OWE ERROR PER TEST 

PSTNITIALIZE THE LOOP ADDREgS FOR gCcOPE 
9pSETUP TNE ERROR LOOP ADDRESS 


98ET PROCESSOR STATUS TO @ 

pTHIS6 36 FOR UNTIMELY APOE INTERRUPTS 
sINITILIZE TK 

p28 THIS FIRST TIME ROUND 

pSRANCH IF NOT 


peTYPE ASCIZ STRING 
99GET OVER THE ASCIZ 


<15><12>/RPO4 DISKLESS CONTROLLER TESTePART 31 (STATIC 1B) © DERPT 


peTYPE ASCIZ STRING 
99GET OVER THE ASCIZ 


€15><€12>/MAKE SURE DCL 36 LOCKED ON CORRECT PORT/ 


peTYPE ASCIE STRING 
p9GET OVER THE ASCIZ 


€15>¢12>/I2F CHANGES ARE REQUIRED ON SWITCH THENS 


eTYPE ASCIZ STRING 
99GET OVER THE ASCIE 


€15>¢12>/A CYCLE UP SEQUENCE 38 REQUIRED FOR STROBING/ 


seTYPE ASCIZ STRING 
99GE? OVER THE ASCIE 





%» @© 0600600800006 06064806=00800808@800i806 806 


(1) 
(1) 
5602 
(1) 
(1) 
(1) 
$6¢3 
(1) 
(1) 
(1) 
$604 
(1) 
(1) 
(1) 
5605 
5606 
$607 
(1) 
(1) 
5628 





005010 
005010 
005014 


085102 
085102 
005106 


005166 
005166 
005172 


005244 


005246 
005252 


005322 
005322 
0@5324 
005330 
005334 


005340 
005342 
005350 


005354 
005362 


005370 
005376 
005402 
005406 
005410 
005412 
005414 
005416 
005424 
005426 
005434 
005436 


MAINDEC*11eDERPTASA 
DERPTA,Pili 


104400 
000432 


104400 
000427 


104400 
000417 


012737 
005737 


001435 


104400 
000423 


104416 
042716 
011637 
012637 


000004 
012767 
012706 


012737 
012737 


012737 
012700 
012701 
013102 
005300 
001375 
000471 
012737 
022626 
016167 
104015 
032737 


MACYi1 27(657) 
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00511¢@ 


005174 


4177777 
001778 


177778 
001762 
001772 


000001 
061000 


000001 
037160 
005416 


000006 
177776 
020000 


004176 


173634 


004174 
000030 
000004 


000004 
173536 
177878 
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. 9 ASCIZ €15><12>/THE PORT SELECT FLOP/ 
6681 

TYPE 0e%4 POTYPE ASCIZ STRING 

BR 698 s9GET OVER THE ASCIZ 

59 ,ASCIZ €15><12>/ALL DCL UNDER TEST MUST BE LOCKED ON CORRECT PORT/ 
6961 

TYPE 0ee4 peTYPE ASCIZ STRING 

BR 708 99GET OVER THE ASCIZ 
, pp ASCIE €15><12>/ALL DCL NOT UNDER TEST MUST BE SWITCHED OFF/ 
eci 

TYPE 54 peTYPE ASCIZ STRING 

BR 718 p9GET OVER THE ASCIZ 

p93 ASCIZ €15><€12>/0R LOCKED ON THE OTHER PORT/ 
7168 
SNDis MOV 6°], 00FIRST pNEXT TIME DO NOT GIVE HEADER 

TST @eSELECT pWAS IT A 200 START 

BEQ TsTi sBRANCH IF STARTING FROM 200 

TYPE oe*4 peTYPE ASCIZ STRING 

BR 648 s9GET OVER THE ASCIZ 

99 ,A8CIZ €15><12>/SELECT UNIT NUMBER TO BE TESTED ? / 
6465 

RDOCT 

BIC 0177770, (SP) pONLY KEEP LAST 3 BITS 

MOV (SP), O9UNIT pSAVE UNIT TO BE TESTED 

MOV (SP)¢,Oe8UNITSL sSAVE UNIT TO BE TESTED 


RIP ey yyy yyy 
p@TEST 1 REFERENCE EACH REGISTER 

hd REFERENCE EACH REGISTER BY A MOVE INSTRUCTION 
POROPOSOHHOCOEHHDODOEHOHOOHEOOCOOCHOLEHEOSEHECODOHERHOCOECHOEDOO 
TSTis SCOPE 


MOV +1, STIMES 9900 3 ITERATION 
MOV OSTACK, SP sSET UP STACK POINTER 
MOV OTTNO,OSTSTNM  j;THIS SAVES TEST NUMBER 
MOV @REGSAL, OCEMTVECSERROR VECTOR 80 THAT 
gNO REGISTERS ARE SAVED 
MOV 628, OCERRVEC ;SET UP FOR BUS TIMEOUT 
MOV 24, RO STHERE ARE 24 REG TO TEST 
MOV @RHDB, Ri Ri NOW HAS ADDR OF ADDR OF FIRST REG, 
18s MOV OCRI. R2 pREAD HARDWARE REG, 
DEC Re sCOUNT DOWN 
BNE is pBRANCH IF 24 NOT DONE 
BR 38 sBRANCH IF 24 DONE 
rit) MOV OERRVECS2,OGERRVEC ;RESTORE TRAP CATCHER 
CMP (SP), (SP)¢  #sCLEAN STACK 
MOV *2(Rid, STMPS sSTORE FAILING REG ADDR 
ERROR 15 pREGISTER NON EXISTANT 
BIT 654139, 00SWR pINHIBIT ERROR PRINTOUT ? 


As 
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5636 
$637 
(1) 
(1) 
(1) 
5638 
(1) 
(4) 
(1) 
5639 
5640 
$641 
$642 
5643 
5644 
5645 


’ 


>, e@@6e@0@e@ 6 © @ @ 606 6 68 6 6 6 6 86 6 6 C@ 86 6 A! 
oor 
wes a 
— ws 


005444 
005446 
005452 


005572 
005574 
005600 


005614 
005616 
005624 


005670 


005676 
005702 
005706 
005712 


Ti 


001053 
104400 
000431 


104400 
000411 


012746 


104402 
000137 
012737 


012737 


000004 
012767 
012706 


012737 


013737 
604537 
000017 
000000 
104001 
000207 


000004 
012767 


012737 


013701 
012713 
011137 
105737 
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005544 


030086 
023246 
037152 
e0eees 


001650 
177797 
001126 
001126 


173360 


004174 
005652 


173314 
004174 
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BNE 4s pBRANCH IF YES 
TYPE 094 SeTYPE ASCIZ STRING 
BR 648 99GET OVER THE ASCIE 
99, ASCIZ €15>¢€12>/IF BASE ADDRESS I8 TO BE CHANGED HALT PROGRAM / 
6468 
TYPE 0904 peTYPE ASCIZ STRING 
BR 638 99GET OVER THE AGCIZ 
99 ,ASCIZ €15><¢€12>/AND RESTART AT / 
6588 
MOV @BASECH, (SP) 9GET READY TO TYPE STARTING ADDRESS 
OF "CHANGE OF BASE ADDRESS* ROUTINE 
TyYPpOoc 
46e JUMP @esEoP 960 TO END OF PROGRAN 
368 MOV OCERROR, OOEMTVEC; RESTORE ERROR VECTOR 
980 THAT REGISTERS ARE SAVED 
MOV CERRVECS2, OUERAVEC pRESTORE TRAP CATCHER 


peTEsT 2 RHCS2eCONTROL AND STATUS 2 
@ THIS PARTIALLY TESTS RHCS2 TO ENABLE DETERMINATION 
@ OF THE NUMBER OF DRIVES PRESENT 


§ 000000 00000600000000000 00000000 COO OHH OCOOOCHOEOSE COCO OORRCOCOS 
TAT2s + +g 


O01, 6TINES 9900 4 ITERATION 

MoV @STACK, SP pRESET STACK 

MOV OTTNO/QOTSTNN PTHIS SAVES TEST NUMBER 

MOV OoRnNCS2, OOUNS2 

J&R RS, CeBI TET sTEST BITS IN REGISTER 
UNs 17 pONLY THESE BITS ARE TEST READ/WRITE 

eWORD @ ; ADDRESS OF REG, BEING TESTED 

ERROR 4 pIN CORRECT DATA RECEIVED 

RTS pc RETURN TO BLT ROUTING 
$000000000000000000000000000000000000000000000000000000000000008 
peTEst 3 PARTIAL TEST FOR RHAS FOR UNIT NUMBERS PRESENT 
POCOOCROREOOOR CREE ODOCOOOTEHROHOOOHODOEOOEEOODHCTUHOODO0NOO0008 
TST30 0 48=— SCOPE 

MOV C1, OTINES 9900 § STERATION 

MOV OTINO,OOTSTNK  JFTHIS SAVES TEST NUMBER 

MoV OORHAS, Ri pRi HAS ADDRESS OF RHAS 


MOV 0°3,0R1 »THIG CLEARS RHAS (SURPRISED) ) 
MOV OR1,O08BDDAT sTEST DATA 
T6TS OeSBODAT 


ui ez ~~ r a -_ r 6 a 


; 
© 
MAINDEC 11 eDERPTACA MACY41 27(657) 1SeAPRe7§ 17745 PAGE 44°26 
© DERPTA,Pil T3 PARTIAL TEST FOR RHAS FOR UNIT NUMBERS PRESENT 
(1) 008716 001405 BEQ TsT4 BRANCH IF GOOD 
qi) 
e $674 008720 005037 001124 CLR @esGoDaT 9GOOD DATA 
$675 ©05724 010137 024234 MOV Ri, @OREGADR pFAILING REG, RNAS 
€ $676 005730 104001 ERROR 4 RHAS DOES NOT CLEAR 
$677 WITH ONES 
$678 
é $679 § 9998000000 0808 8808000000080 000000000000000000000000000000000008 
(3) peTEST 4 TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 
¢ 3) § EbBESPO IHS ESE OHOGSOESSSSIGLL GY GOES IOO SHOPS OSH SOHGFSHSOSSOSSSYEBEVOD 
e (2) ©05732 eeece4 T8T4s «= BCOPE 
(1) 005734 012767 @o9001 173242 MOV 01, STINES 9900 4 ITERATION 
5680 005742 699005 RESET pOTART WITH AN INIT 
& $661 005744 904737 036424 JSR PC, OOSTKINT pINITILIZE TK 
$6682 @0575@ 0632737 #20008 177876 BIT €8013,00SWR pINHIBIT ERROR TYPEOUT? 
$6683 005786 001030 BNE 48 pORANCH IF YES 
e $684 005760 104400 905766 TYPE ry | eTYPE ASCIZ STRING 
(1) 005764 900425 BR 846 99GET OVER THE ASCIZ 
(1) pp ASCIZE <15>¢€42>/LOOKING AT RHAS © RPOE ORIVES PRESENT / 
e (1) 006040 6488 
$685 006040 013701 001650 46: MOV OORHAS, RY pRi WAS ADDR, OF RHAS 
5686 006044 013702 001630 MOV @eRHCS2,R2 pR2 HAS ADDR, OF RHCE2 
e $667 806080 005012 CLR @R2 sCLEAR RHCE2 
$668 006052 612700 #00010 MOV 00, 0RO sCOUNT 
S689 086056 613704 001634 MoV OORHER: RE pR4 HAS ADDR, OF RHER, 
e $690 006062 612714 1977777 iss MOV o1,0R4 pMOVE ERRORS INTO RHERI 
5691 ©06066 605212 Inc @R2 INCREMENT UNIT NO, 
5692 0806070 605300 DEC Re COUNT 
a $693 006072 601373 BNE is BRANCH IF @ HOT DONE 
$694 006074 111137 #02006 MOVB ORL,OOTOTALAT sSAVE TOTAL ATTENTION 
$695 sUSED IN DRIVE CLEAR TEST 
e $696 006100 105037 002007 CLRB OOTOTALATSS CLEAR UPPER BYTE 
$697 006104 105711 TSTB OR: pTEGT FOR ANY ORIVES PRESENT 
$698 006106 901402 BEQ 28 s3F SOME NOT THERE BRANCH 
€ $699 806110 600167 900436 UMP Xe2 NONE THERE 
$700 006114 032737 820008 177870 283 BIT 08013,0e6WR pINMIBIT ERROR TYPE OUT? 
$701 006122 001402 BEQ TY} BRANCH IF HO 
e 5702 006124 000167 009706 JMP T8TS s0UT 
$703 006130 368 
(1) 006130 104400 006136 TYPE 0904 peTYPE ASCIZ STRING 
e (1) 006134 900412 BR 648 99GET OVER THE ASCIE 
(1) 19 ,ABCIZ <15>¢12>/N0 DRIVESCRHASSO/ 
(1) 006162 6568 
e 5704 006162 104400 606170 TYPE 0004 seTYPE ASCIZ STRING 
(1) 006166 900436 BR a6 g9GET OVER THE AGCIZ 
; (1) 99, ASCIZE <15>¢€12>/WRITING ONES INTO ERROR REGISTER 03 FOR ALL UNIT NUNBERS/ 
c (1) 006264 6668 
$705 006264 104400 006272 TYPE 0004 peTYPE ASCIZ STRING 
(1) 006270 900441 e786 99GET OVER THE ASCIZ 
a (1) 99, ASCIZ <15><12>/D0E8 NOT SET ANY BIT IN THE ATTENTION REGISTER SO ABORT P 
(1) 906374 6768 
$706 006374 104400 006402 TYPE Py | ppTYPE ASCIZ STRING 
ra (1) 006400 900440 BR 606 p9GET OVER THE ASCIZ 
(i) 99 ABCIE <15><¢12>/T0 LOOP ON THIS TEST WITHOUT PRINTOUT SET SWETCHS 13 6 A 
Cc 
=~ 


> 
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(1) 
$707 
5708 

(1) 


Mca eeAENcReth at AN tet AMA Eo OL OTOL OLLI L LAE LOI LION | 


0206502 
006802 
006506 
006512 


006534 
006534 
006540 
006546 
006552 
006552 
006556 
006562 
006566 
006570 
006572 
006576 
006600 
006604 
006610 
006614 


006620 
006622 
006626 
006634 
006636 
006644 
006646 
006652 


006674 
006674 
006676 
006700 
006704 


006720 
006720 
006724 
006726 
006732 


006754 
006754 
006756 
006760 
006764 
006766 
006770 
006774 
006776 
087000 
007002 


Ly) 


000137 
104400 
000410 


605037 
012767 
005037 


012706 
012703 
012723 
005300 
001374 
612703 
oesees 
005037 
012700 
011137 
006037 


103065 
010577 
022777 
001450 
022777 
001444 
104400 
000410 


010546 
104410 
104400 
000405 


017746 
104402 
104400 
0004108 


000407 
010523 
1644008 
010546 
104410 
005237 
005205 
005300 
001305 
013737 
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TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 


6668 
023246 JMP @esEoP 5G0 OUT 
006514 TYPE 0e04 peTYPE ASCIZ STRING 
BR 698 99GET OVER THE ASCIZ 
99 -ASCIZ €15>€12>/TEST DRIVE 6/ 
6968 
001742 CUR OOUNITS 
@00001 173216 MOV #1, NOUNTT NO, UNITS PRESENTS; 
061762 CLR oeuNrT 
XEQs 
000010 26% MOV 06,0R0 sCOUNTER 
001742 MOV OUNTTS, RI pPOINTER 
4777977 36s MOV ed TA Ph sPREGET BLOCK TO ALL ONES 
DEC Re sCOUNT 
BNE 36 pBRANCH IF 8 NOT DONE 
001742 MOV @UNITS,R3 sPOINTER 
CLR RS 
001764 CLR @ONOUNIT NO, OF UNITS PRESENT 
000010 MOV 00,.RO sCOUNTER 
o01170 MOV OR1,-OeSTHPO pTEMPORARY STORAGE 
00117e ase ROR OesTNPE ;SET CARRY IF OWE IN @ BIT 
Bcc 88 
173002 MoV RS, ORHCS2 SINSERT UNIT NUMBER 
624028 173022 CMP 624020, @RHDT 936 THIS A DUAL PORT RPO4 
BEOQ és pBRANCH IF YES 
020020 173012 CMP 920020, ORHDT 936 THIS A SINGLE PORT RPOS 
BEQ 66 pBRANCH IF YES 
006654 TYPE oee4 peTYPE ASCIZ STRING 
BR 646 99GET OVER THE ASCIZ 
eae pp AGCIZ €15>¢12>/UNIT NUMBER / 
f 
eee RS, °( SP) sGET READY TO TYPE UNIT NUMBER 
006706 TYPE 0ee4 peTYPE ASCIZ STRING 
BR 658 99GET OVER THE ASCIE 
99 -ASCIE 4, RHDTe / 
6568 
172732 et ORHDT, ©( SP) pGET READY To TYPE RHOT 
006734 TYPE 0ee4 peTYPE ASCIZ STRING 
BR 668 99GET OVER THE ASCIEZ 
we pp, ASCIZ 4 eooNOT AN RPQG/ 
es 
BR 58 9¥O RPO4 FOUND SO BRANCH 
683 MOV RS, CR3)¢ 
001215 TYPE e OCRLF 
MOV RS,°( SP) 
TYPDS pTYPE DRIVE WO, 
001764 Inc @eNOUNIT 
58s Inc RS 
DEC RO 
BNE 48 
001742 001762 MOV OOUNTTS, OOUNIT 


,e@e@ee#eeeeeeeeeeeeseeeee 06 @! 


5748 
574! 
5751 
5751 
$751 
cit 
cit 
5753 
5758 
$761 
(3) 
(4) 
(4) 
(4) 


007010 
007016 


007022 
007026 
007030 


007036 
007040 
007046 
007054 
007060 
007064 
007070 
007676 
007102 


007136 
007136 
007142 
007144 
007150 
007154 


007176 
007176 
007202 
007204 
007210 
007214 


007236 
007236 
007242 
007244 
007250 
007254 
007260 
007266 


MAINDE! ©11 eDERPTACA 
DERPTA,Pii 


m4 


013737 
005337 


005737 
001403 
013737 


000004 
012767 
012767 
004737 
005037 
013700 
116037 
104400 
000415 


013746 
104402 
104400 
104400 
000410 


017746 
104402 
104400 
104400 
000410 


017746 
104402 
104400 
005777 
005777 
017737 
017737 


MACY11 27(657) 


TEST FOR DRIVES 


001764 
001766 


001770 


001772 


000001 
007250 
024470 
002004 
001762 
004200 
007104 


001762 


001215 
007156 


172456 


001215 
067216 


172414 


001215 
172404 
172376 
172374 


4172364 001776. 


001766 


001762 


172136 
4172032 
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PRESENT USING RHAS AND RHCS2 


MOV 
DEC 


TST 
BEQ 
MOV 


OONOUNIT, OONUNIT sSAVE NO, OF UNITS 
OoNUNIT sIF NUNIT @ @ THEN ONLY ONE UNIT 
IF NUNIT MORE THAN © THEN MORE THAN ONE UNIT 
OeSELECT pSTARTING ADDRESS 200 7? 
TsTs pBRANCH IF STARTING FROM 206 
OOUNITEL, OOUNTT SET UNIT NUMBER 


peTEsT § 


TEST SERIAL NUMBER AND DRIVE TYPEI 

READ SERIAL NUMBER REGISTER AND DRIVE TYPE REGISTER 
TYPE IT OUT AWD PROCEED 

TO LOOP HERE SET SWITCH @ AND THIS TEST NO AND RESTART 


TSTSs 4 8=6SCOPE 
MOV 


i6s T8Tt 


O1,S8TIMES 9900 § ITERATION 
€16,6LPADR 996ET SCOPE LOOP ADDRESS 
PC eo OSCLOISK gFILL UNIT NO, 
COATTENT sCLEAR 
OoUNIT, RO pRO CONTAING UNIT NO 
ATABLE( RO), OOATTENT pSET APPROPIATE ATTENTION BIT 
0e%4 eeTYPE ASCIEZ STRING 
646 99GET OVER THE ASCIZ 
€15>¢€12>/TESTING DRIVE NUMBER / 
OOUNTT,¢( SP) pUNIT HO, TO STACK 
pTYPE DRIVE HO, 
e 6CRLF 
0904 seTYPE ASCIZ STRING 
658 99GET OVER THE ASCIZ 
€15>¢€12>/SERIAL NO, @ / 
ORHSN, °C SP) 99GAVE ORHSN FOR TYPEOUT 
9960 TYPEeeOCTAL ASCIICALL DIGITS) 
e CRLF 
0004 peTYPE ASCIZ STRING 
666 99GET OVER THE ASCIE 
€15>¢€12>/DRIVE TYPE @ / 
ORHDT, (SP) peSAVE ORHOT FOR TYPEOUT 
ae 9960 TYPEeeOCTAL ASCIICALL DIGITS) 
08 
@RHSN pREAD SERIAL NO, AND DRIVE TYPE 
@RNDT pTHESE TWO ARE TO HELP gCOPE LOOPs 


ORHSN,OOSAVEN j;SAVE TO CHECK IF CLA RHCS2 BIT S CLEARS ANY BITS 
ORHDT,OOSAVDT SAVE TO CHECK IF CLA RNCS2 BIT § CLEARS ANY BITS 


p@TEST 6 


CHECK MOL TO BE LOW 







of 


°° e@ @ @ @ @ @ @ @ 6 @ 





MAI (DEC 11 eDERPTASA 
DERSTA,Pii 


14) 
(4) 
¢4@) 
(4) 
(3) 
42) 
$791 
(1) 
(1) 
$792 
$793 
5794 
(1) 
(1) 
$7958 
(1) 
(1) 
(1) 
5796 
(1) 
(1) 
(1) 
$797 
(1) 
(1) 
(1) 
5796 
$799 
$800 
(1) 
(1) 
(1) 
$eoi 
$802 
$803 
$612 
$613 
(3) 
(4) 
(4) 


007274 
007276 


007304 
007310 


007314 


007316 
007322 


007366 
007366 
007372 


007444 
007444 
007450 
027532 
007532 
007536 
007540 
007544 


007636 


007636 
007640 


007644 


007652 
007656 


T6 


000004 
012737 


004737 
032713 


001550 
104400 
000421 


104400 
000424 


104400 
000430 


032713 
001375 
104400 
000434 


000004 
012706 


012737 


004737 
012777 


MACY11 27(687) 
CHECK MOL TO BE LOW 


024476 
010600 


007324 


007374 


007482 


010000 
007546 


001600 
000007 


024470 
00000: 


004174 


004174 


171766 
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@ MAKE SURE THAT DRIVE I6 OFF LINE BEFORE STARTING PROGRAM 
@ If DRIVE 18 ON LINE THEN AFTER TYPE OUT THE PROGRAM WILL 
2% HANG FOR EVER WAITING FOR DRIVE TO GO OFF LINE 


$000 08 E09 00008000000 0000000000 0000000000 000000000000000000000008 
TSTés SCOPE 


MOV CTTNO,OGTSTNM  j;THIS SAVES TEST NUMBER 

JSR PC, OSCLOISK pGIVE INITILIZE 

BIT @MOL, OR} sCHECK MOL IN RHDS{ 

BEQ TST? BRANCH IF MOL LOW 

TYPE 0ee4 soTYPE ASCIZ STRING 

BR 646 99GET OVER THE ASCIEZ 

99 ASCIZ <15><12>/ORIVE 168 ON LINE © MOL I8 HIGH/ 
646% 

TYPE 0e04 pOTYPE ASCIE STRING 

BR 656 99GET OVER THE ASCIZ 

99 ,ASCIZ <19>¢€32>/HIT STOP ON DRIVE TO GET IT OFF LINE/ 
658% 

TYPE oe%4 seTYPE ASCIEZE STRING 

BR 666 s9GET OVER THE ASCIZ 

99 -ASCIZ <15><€12>/PROGRAM WILL HANG TESTING MOL TILL MOL 18 LOW/ 
6668 
iss BIT OMOL, ORI CHECK MOL IN RHDS) 

BNE a pBRANCH IF MOL 18 HIGH 

TYPE 0004 peTYPE ASCIZ STRING 

BR 678 99GET OVER THE ASCIZ 

99 -ASCIEZ €15><12>/GO0D © MOL 18 NOW LOW , PROGRAM WILL NOW BE EXECUTED 
6763 


peTEST 7 PACK ACKNOWLEDGE COMMAND TEST 

qe THE PACK ACKNOWLEDGE COMMAND WILL BE LOADED InToO RHCSi WITH Go 
1e THEN ALL REGISTERS WILL BE CHECKED 

ye RH CLEAR WILL BE GIVEN 

28 THEN ALL REGISTERS WILL BE CHECKED 


§ O9O000000900080000000000000000000000000000000000000000000000000 
T8T7s «= SCOPE 
HOV OSTACK, SP RESET STACK 


MOV CTTNO,OOTSTNM THIS SAVES TEST NUMBER 


J6R PC, OOCLOIGK sINIT AND SET UP GENERAL REG, 
sAND UNIT NUMBER 
MOV @OMD, ORHWR 9SET DIAGNOSTIC MODE 





xy a aelUCUCthlmlmlC RHC OUlmlCHlmlCHemlCKelCDlC HKHelC KC DltC HC HC KHHltiC HC KC ia —ia“SHTD—Cieeltlti NN 


a a ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


MAINDEC*1 1 eDERPTASA 
DERPTA,Pii 


5820 
$621 
5622 
$623 
5624 
$625 
$626 
$627 
5628 
$829 
$830 
$631 
5832 
5833 
5634 
$635 
$636 
$637 
5636 
$639 
5840 
5641 
5842 
5643 
5044 
5645 
5646 
$847 
5648 
5649 
5650 
$651 
5652 
5653 
5654 
sess 
$656 
$687 
sese8 
5659 
5660 
$861 
5862 
$663 
S664 
5865 
$666 
$667 
5668 
5869 

(4) 

(4) 

(3) 

(4) 


007664 


007672 
007676 
007700 
007702 


007704 


007712 


007720 
007724 
007726 
007730 


007732 


007740 
007744 
007746 
007750 
007752 
007754 
007756 
607760 
007764 
007766 


007774 


007776 
010000 


010000 
010002 


7 


013777 


004037 
001624 
003130 
000023 


052777 


052737 


004037 
001624 
002064 
000023 


113737 


004037 
003130 
002064 
000023 
007768 
007760 
010000 
013705 
060505 
016537 


104001 


000207 


000004 
012706 


MACY31 27(687) 
PACK ACKNOWLEDGE COMMAND TEST 


060100 


031136 
001622 


171740 


171720 


002111 
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MOV @OPKACK,@RHCS1 LOAD PACK ACKNOWLEDGE COMMAND INTO RHCSi 
SAVE REGISTERS FOR COMPARIGON AFTER GO 
JSR RO, OOSAVER s6AVE 
RHWC FROM 
REINTO 9T0 
19, SNUMBER OF REGISTERS SAVED 
sGIVE GO TO PACK ACKNOWLEDGE COMMAND 
BIs 0G0,@RHCS1 9GO TO PACK ACKNOWLEDGE COMMAND 
sCHANGE SAVED REGISTERS TO EXPECTED VALUES 
Bis OVV,@OREINTOCI® PSAVED RHOS1 
pAFTER GO HAS BEEN GIVEN TO PACK ACKNOWLEDGE COMMAND 
pSAVE REGISTERS AGAIN 60 THAT COMPARISONS CAN 
pBE DONE 
J8R RO, OOSAVER GAVE 
RHWC pPROK 
WRFROM 
19, sNUMBER OF REGISTERS SAVED 
pAS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
pOPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS 18 
$0 THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
MOVB OOREINTOO2S, COWRFROMNGZS SAVE UPPER RNAS 
SCOMPARE REGISTERS BEFORE PACK ACKNOWLEDGE COMMAND 
pWITH AFTER GO 
JSR RO, OOCOMPAR »COMPARE 
REINTO 9G00D BUFFER 
WRFROM sTEST BUFFER 
19, pNUMBER 
ia pRETURN FOR ERROR 
is 96AME 
aa sRETURN FOR GOOD COMPARISON 

iss MOV GeERWORD,RS sGETTING READY TO INDEX 
ADD RS/RS sDOUBLE ERROR WORD 
MOV RHWC@2(RS),OOREGADR FAILING REGISTER ADDRESS 
ERROR 1 SIMPROPER REGISTER CHANGE 

sAFTER PACK ACKNOWLEDGE COMMAND 
pWITH GO Is GIVEN 

RTS pc pRETURN TO COMPARISION 

263 


$008 900000000000000000000000000000000000000000000000000000000008 
peTEST 10 MAKE CURRENT CYLINDER @ @ 
$ 0000000 000000000000050 000000000 HO00HHHOOOSOHTOOOHEOOHOOOCOHROE® 
TSTi0s SCOPE 

MOV OSTACK, SP pREGET STACK 





MAINDEC*11 eDERPTASA MACY11 27(657) ISeAPRe75 17545 PAGE 44°31 
DERPTA,Pii T10 MAKE CURRENT CYLINDER @ @ 


(1) 010006 004737 624470 JSR PC, @SCLOISK pINIT ORIVE 

(1) 010012 012777 @80001 171632 MOV 6DMD, @RHMR 9SET DIAGNOSTIC MODE 

(1) 010020 004037 627004 JSR RO, OOMAKECYL pSUBROUTINE TO GIVE A SEEK 
(1) sCOMMAND FOLOWED BY A INIT 
(1) pTHIG SHUOLO CHANGE RHCC 


: (1) 810024 9600000 e CHANGE RHCC TO @ 


(3) p@TEST 11 CONTROL AWD STATUS REGISTER 1 BITS © AND 9 
(4) 
(4) 9® WRITE CYLINDER ©, FORMAT 16 BITS PER WORD 
(4) 9@ TRACK @, SECTOR @, KEYS 0, NUMBER OF WORDS 256 
(4) je DATA I8 THE CONTENTS OF THE TTY READER STATUS REGISTER 
(4) 1% THIS WILL USE BITS A116 AND Ai7 WHEN THERE 36 MORE THAN 26K OF MEMORY 
(4) 
(3) $OSOOOOOOOEHOSOOHEOSOCOSEOOCSOHHOOOESOOHEOHOOOHSHSH OH OSOROOOCEOD 
(2) 010026 000004 TSTiis SCOPE 
5879 010030 600167 900310 JUMP TSTi2 sON RHIO JUMP TO NEXT TEST 
5880 010034 612706 601000 MOV OSTACK, 6P sRESET STACK 
5661 
$662 
(1) 010040 012737 600011 004174 MOV OTTNO,OOTSTNM THIS SAVES TEST NUMBER 
(1) 
5863 010046 004037 0624406 JSR RO, OOCLAREA sCLEAR SIMULATED DISK 
5864 010052 032734 eWORD DISK sFROM 
S885 019054 033760 e#ORD TOLGAPC16 sTO 
5866 010056 990000 eWORD 6 pDATA 
$667 p THESE ARE SETUP FOR DISKLESS ust ONLY 
5668 010060 012737 6199008 631616 MOV OFNT2Z2,O0CYLICYLINDER @ 
56689 $16 BITS PER WORD 
5690 019066 005037 6318628 CLR OeSECOTR pSECTOR @ TRACK @ 
5891 010072 905037 631022 CLR OOKEY, KEY, @ 
5892 010076 905037 631024 CLR OOKEY2 sKEY2 @ 
5693 010102 012737 e90400 931064 MOV 0256,,0eNOWORD ;NO OF DATA WORDS 
5894 010110 612737 s909001 031026 MoV 01,00x SWRITE DATA 
5895 619116 004537 025646 JSR RS, @sCRC 960 TO CALCULATE Cac 
5896 010122 631016 CYL 
5897 010124 032716 were 
5698 
5699 
$900 STHESE ARE REGULAR SETUPS 
5901 
5902 ° 
5903 010126 004737 024470 JSR PCr OOCLOISGK SSETUP GENERAL REGISTERS 
$904 @10132 012777 177400 171464 MOV 6°256,,0RHKWC 9256 DATA WORDS 
5905 010140 013777 001136 171460 MOV OesTKS, ORHBA pSTARTING ADDRESS OF WRITE BUFFER 
5906 010346 017737 470764 6020;0 MOV OSTKS,OOTMPILL  ;TEMPORARY STORAGE OF DATA 
5907 010154 005077 171486 CUR OnHDst sSECTOR @ TRACK OB 
5908 610160 012777 @19000 171454 MOV @FKT22,eRKOF 16 BITS PER WORD FORMAT 
5909 010166 905077 171452 CLR ORHCA ;CYLINDER @ 
5910 010172 064737 024524 JSR PC, OeCHECKT sCHECK FOR DVA,RDY,DPR,ORY 
5911 010176 013746 902940 MOV OOWRIDAT,©( SP) WRITE DATAS6Q 
5912 ©10202 052716 001400 BIs OA163A17, (CSP) sSET HIGH ORDER UNIBUS BITS 
5913 010206 012611 MOV (SP)¢,OR1 FILL RNCSi 


e @ @ @! 


~_— —_>_ —-. 


MAINDEC*1 1 sDERPTASA 


DERPTA,Pi1i 


5914 
5915 
$916 
$917 
$918 
5919 
5920 
$921 
$922 
$923 
$924 

(1) 


010210 
010216 
010222 


010226 
010232 


010240 
010244 
010250 
010254 
010262 
010264 
010266 
010274 
010300 
210304 
010310 
010312 


010314 
010316 


010320 
010322 
010326 
010332 


Til 


0352777 
005037 
004737 


004737 
005737 


013700 
612701 
012702 
012737 
020021 
001425 
013737 
014137 
160237 
005737 
001002 
104037 


000401 
104040 


005721 
013746 
042716 
022726 


001402 


005302 
001344 
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CONTROL AND STATUS REGISTER 1 BITS 8 AND 9 


O00010 171412 816 OBAI, ORHCSE2 sSET BUS ADDRESS INHIBIT 
001774 CLR OcERFLGS sCLEAR ERROR FLAG 
030706 JSR PC, OOCOMHD pWRITE DATA 


IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
FROM THE “COMHD® ROUTINE IT MEANS SECTOR GAP, SYNC BYTE 
pHEADER, HEADER CRC, HEADER GAP AND SYNC BYTE HAVE GONE BY 
pAND SYNCS WERE CORRECTLY DETECTED 

sDATA I68 TO BE CHECKED 


024170 JSR PC, OOPUTREG pSAVE REGISTERS 
001774 | ‘18t OeERFLGS pHAS ANY ERRORS OCCURED? 
BNE TSTi2 «6p sBRANCH IF YES 
002010 MOV OOTMPILL, RO 9GOOD DATA 
032734 MOV eDISK, Ri sDATA WRITTEN INTO "DIUK® 
000400 MOV €256,,R2 pCOUNTER 
000403 631136 i183 MOV 0257,,@@ERWORD ;FOR ERROR WORD 
CMP RO, CRI)Do sCOMPARE GOOD DATA WITH DATA ON DISK 
BEQ as pBRANCH IF GOOD 
0602018 001124 MoV OOTMPILL, OOSGDDAT 9G000 DATA 
003126 MOV ©(R1),@@6BDDAT 4;BAD DATA 
031136 sus R2, OSERWORD pERROR WORD WO 
661774 TST OoERFLGS pANY ERRORS ALREADY THERE? 
BNE at sBRANCH JF YES 
ERROR 37 sERROR OW WRITE DATA COMMAND 
9SEE NEXT ERROR COMMENTS 
BR 648 sBRANCH TO AVOID PRINTING NEXT ERROR 
283 ERROR 46 sWORD WO GIVES WORD IN ERROR 


SERROR OCCURED WHILE WRITING 
sWITH AGG AX? OF RHCS, SET 


6463 T8T CRi)de pUNDO e(R1) FOR BAD DATA 
177870 MOV @eSUR,°( SP) sGET SWITCH SETTING 
477177 BIC 0177177, (SP) sKEEP ONLY SWITCH 7 AND 6 
000200 CMP 03007, (SP)¢ 9218 7 GET AND 6 RESET 
BEQ TST12 BRANCH OUT IF YES 
Bat DEC R2 SIF NOT COUNT 256 WORDS 
BNE is sBRANCH IF 286 NOT DONE 


peTEST 12 DRIVE TIMING ERROR 

+e A READ HEADER AND DATA 28 STARTED ON CYLINDER @, SECTOR 

@ @, TRACK @, 260 WORDS, AFTER THE HEADER I6 READ IN CORRECTLY 
hd THEN NO SYNC BYTE (DATA SYNC) Is GIVEN, 


ba 
sy 
9e@e@e8e8ewoe eg eéetwlUCcePemlmC OflrmUC“ k'wC<‘iéikakwC‘iakwlmcrkakwWlCc OUlUC HUC WC OUlUlUCUCcUkUlUCOUC H]WC LKRk lC ODlUCDD 


mm F 





MAINDEC*1 1 eDERPTASA 
DERPTA,Pil 


010372 
010376 
010402 
010406 
010412 
010414 


010416 
010422 
010430 
010436 


010442 
010450 
010454 


010460 
010464 
010466 
010470 


010472 
010500 


010506 


T12 


000004 
012706 


012737 


012737 
005037 


005037 
005037 
005037 
004537 
031016 
0327136 


004737 
612777 
012777 
008077 


012777 
005077 
013711 


004037 
001624 
001674 
000023 


012737 
012737 


004737 


MACY11 27(657) iSeAPRe75 


DRIVE TIMING ERROR 


TST129 
001000 


000012 004174 


010000 031016 
031020 
031022 
031024 


031026 
025646 


024470 
177374 173174 
003138 13713170 
173174 
014008 171172 
1714170 
002046 


025146 


177777 902014 
177777 004774 


030706 


THEN WORMAL DIAGNOSTIC CLOCKS AND DIAGNOSTIC 
SECTOR CLOCKS ARE GIVEN FOR 24 BYTES, 
THEN 636 BYTES OF SECTOR CLOCKS ONLY ARE GIVEN, 


THIS 16 


THIS SHOULD SET DRIVE TIMING ERROR 
J POOOSOCOOSEORHHEOOOOHECLODECODOHHOOHOOHEOHOODHCOOHOECHOODORCOR® 


SCOPE 
MOV 


MOV 


— ARE TO SETUP FOR DISKLESS USE 


CLR @eSECOTR pSECTOR 6 

pTRACK @ 
CLR OoKEY pKEYy & @ 
CLR @eKEY2 sKEY2 © @ 
CUR Cex pTHIS 36 A READ COMMAND 
as RS, OeCRC 9GO0 TO CALCULATE CAC 
werc 
» THESE ARE REGULAR SETUPS 
JSR PC, CoCLOISK sSETUP GENERAL REGISTERS 
MOV 0°266,,0RHWC 9256 DATA WORDS 4HEADER 
MOV @OREINTO, ORHBA pSTARTING ADDRESS OF BUFFER 
CUR OrnHDST STRACK @ @ 

s8ECTOR © O 
MOV OFMT2ZZIECI,ORHOF 916 BITS PER WORD 

sECC CORRECTION INHIBITED 
CLR @RHCA sCYLINDER @ @ 
MOV OCREFOR, ORY pREAD HEADER AND DATA & 73 
sSAVE REGISTERS FOR COMPARISON AFTER SIMULATED ORIVE TIMING ERROR 
JSR RO, OOSAVER pSAVE 
RHWC sPRON 
we $70 
19, pNUMBER 
pNOW GO WILL BE GIVEN, EVERYTHING WILL BE TREATED 


pNORMALLY FOR THE HEADER, BUT WHEN IT 36 TIME FOR 

pDATA ONLY, SECTOR CLOCKS WILL BE GIVEN, NO DIAGNOSTIC 
pCLOCKS WILL BE GIVEN, THIS SHOULD BRING SECTOR PULSE HIGH 
pWITHOUT PUTTING READ DOWN HENCE OTE WILL COME UP, 


MOV 
MOV 


JSR 


17845 PAGE 44233 





TO TO BRING SECTOR PULSE UP 


OSTACK, SP pRESET STACK 
OTTNO, OSTSTNM j;THIS SAVES TEST NUMBER 


OFAT22,00CYL 916 BITS PER WORD 
sCYLINDER @ 


0°14, O0TESOTE SET DTE TEST 

6°}, 00ERFLGS pTHIS WILL BRING THE READ HEADER 
AND DATA PROCESS OUT AFTER THE 
SHEADER HAS BEEN CORRECTLY READ 


MAINDEC*1 1 eDERPTASA 


DERPTA,Pil 


6029 010512 
6030 010516 
6031 010522 
6032 010526 
6033 010532 
6034 010536 
6035 0610542 
6036 610546 
6037 010552 
6038 010554 
6039 010556 
6040 010560 


6043 010562 
010566 
6045 010572 
6046 010576 
6047 010600 


6052 0810602 
6053 010610 
6054 019616 
6055 010624 
6056 010632 
6057 019640 
6058 010646 
010654 
6060 010662 


6064 010670 
6065 010674 
6066 010676 
6067 010700 


SS  ——— 
oe 
eo 
w 
Oo 


°°” @ @ @ 6 @ @ @ ®@ 


) 


T12 


012701 


012701 
052710 
042710 
005301 
001372 


012737 
012737 
052737 
052737 
612737 
052737 
012737 
012737 
013737 


004037 
001624 
002064 
000023 


MACY11 27(657) 
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000030 
001652 
000001 
000012 
000012 
000007 
600002 


177400 
003140 
140000 
010068 
000401 
140000 
000100 
000001 
002004 


001674 
001676 
001702 
001704 
001722 
001724 
001736 
001706 
001720 


GR) 


| 
‘{SeAPR-75 17945 PAGE 44034 - 

NOW THE HEADER HAS BEEN READ € 
pNOW S6@ SECTOR CLOCKS WILL BE GIVEN 
sGAP 41 BYTES, SYNC 4 BYTE, DATA $12, ECC 4 BYTES 
sGAP 2 BYTES, TOLERANCE 28 BYTES, EXTRA 2 € 
THESE S6@ SECTOR CLOCKS ARE DIVIDED INTO TWO GROUPS 
924 SECTOR CLOCKS WITH NORMAL DIAGNOSTIC CLOCKS € 
pAND 536 SECTOR CLOCKS WITHOUT ANY DIAGNOSTIC CLOCKS 

€ 
pTHIS GIVES 24 SECTOR CLOCKS wITH DIAGNOSTIC CLOCKS € 
MOV 024,,R1 COUNTER, 
MOV OoRHMR, RO sGER RHUMR ADDRESS 
MOV @DMD, ORO 98ET DIAGNOSTIC MODE q 
Bis OMSTCKIMCLK, ORO pSET SECTOR CLOCK AND CLOCK 
BIC OMSTCKIMCLK,OR® sCLEAR SECTOR CLOCK AND CLOCK 
MOV 07,R2 sCOUNTER FOR DIAGNOSTIC CLOCKs € 
Bis ONCLK, ORO s8ET CLOCK 
Bic eMCLK, ORO sCLEAR CLOCK 
DEC R2 sCUOUNT TO 7 < 
BRE ae BRANCH IF 7 NOT DONE 
DEC Ri pCOUNT 
BNE 18 BRANCH IF 24 NOT DONE « 
prnte GIVES 536 SECTOR es WITHOUT DIAGNOSTIC CLOCKS 
+ ONSTCK, ORO one SECTOR CLOCK 
Bic OMSTCK, ORO sCLEAR SECTOR CLOCK 
DEC Ri COUNT ¢€ 
BNE Se BRANCH IF 536 NOT DONE 

Cf 
pNOW DTE SHOULD BE SET CHANGE SAVED REGISTERS TO EXPECTED VALUE 
MOV 0°256,,00WC SAVED RHWC € 
MOV @REINTOSC<4,©2>,008A p SAVED RHBA 
Bis OSCITRE,00C8i pSAVED RHCEy 
Bis ODTE, OCERi pSAVED RHER < 
MOV 0401, 00MR SAVED RHMR 
ais @ATAJERR, 00084 »SAVED RHDSy 
MOV 0100,00LA SAVED RHLA € 
MOV 01,00D8T SBAVED RHDST 
MOV COATTENT,O9AS  ;SAVED RHAS ‘ 
NOW GAVE REGISTERS AGAIN SO THAT COMPARISONS CAN BE DONE 
JER RO, OOSAVER SAVE € 
RHWC sFROM 
WRFROM #T0 





oe eeoeeeegcmlhrthmhmlCc OOUlCc OOCrUC(whhOCUCchOUlcCOUchCOOmhUC OhlUCtrOlhUCchOUhUC(Ch TCUC(Ch WUC }OlhlUl}OlhlUrFl 


MAINDEC ©] 1 eDERPTACA MACY11 27(657) {1SeAPRe7S 171545 PAGE 44°35 


DERPTA,Pii T12 DRIVE TIMING ERROR 
6069 pFOR RHAS UPPER BYTE 
6070 @10702 113737 001721 002111 MOVB OCASC1, COWRFROMOZS FUPPER RHAS 
6071 
6072 sCOMPARE HEADER READ 
6073 610710 604037 025342 JSR RO, COCOMPAR sCOMPARE 
6074 010714 031016 CYL 9G00D BUFFER 
6075 010716 003130 REINTO sTEST BUFFER 
6076 010720 9800004 4, sNUMBER 
6077 0610722 010730 68 pRETURNW FOR ERROR 
6078 010724 010730 66 SANE 
6079 010726 610734 76 pRETURN FOR GOOD COMPARISON 
6e60 010730 104010 68s ERROR 10 pHEADER READ IN DURING THIS TEST is 
6081 #3" ERROR 
60862 
6063 010732 000207 RTS PC pRETURN 
6064 
6085S 010734 76% 9G00D 
6006 
6067 
6066 sCOMPARE REGISTERS BEFORE COMMAND WITH AFTER COMMAND 
6089 010734 004037 025342 JER RO, OOCOMPAR sCOMPARE 
6090 010740 001674 we 9G00D BUFFER 
6091 010742 002064 WRFROM sTEST BUFFER 
6092 010744 900022 18, s NUMBER 
6093 010746 610754 26 ee FOR ERROR 
6094 010750 610784 at p SAN 
6095 010752 610774 33 RETURN FOR GOOD COMPARISON 
6096 
6097 010754 013705 631136 26s MOV @OCERWORD, RS SGETTING READY TO INDEX 
6098 010760 960505 AOD RS, RS DOUBLE ERROR WORD 
6099 010762 616537 803622 8246234 MOV RHWCeZ(RS),-OCREGAOR FAILING REGISTER 
6100 010770 104001 ErrOn 1 sIMPROPER REGISTER 
6103 SCHANGE WHILE EXPECTING 
6102 sDTE ERROR 
pe 010772 000207 RTS pc pRETURE 
610 
6105 010774 368 9G00D 
6106 
6107 
6119 
6120 Me oe Ir rriiiiiiiiy) 
coe p@7EST 13 DRIVE TIMING ERROR 
(4) se A WRITE DATA COMMAND 18 STARTED Ow CYLINDER 0, SECTO 
(4) Pe @, TRACK @, 256 WORDS, AFTER THE HEADER 28 READ HY w CORRECTLY 
(4) 7° THEN NO SYNC BYTE (DATA GYNC) 18 GIVEN, 
(4) ye THEN NORMAL DIAGNOSTIC CLOCKS AND DIAGNOSTIC 
(4) @ SECTOR CLOCKS ARE GIVEN FOR 24 BYTES, 
(4) s@ THEN 536 BYTES OF SECTOR CLOCKS — ARE GIVEN, 
(4) je THIS I8 TO TO BRING SECTOR PULSE U 
(4) 9° THIS SHOULD SET DRIVE TIMING ERROR 
(3) J FOSSECOCOO OSE HOSOHOHHOHOOLDOHOOSOOOHEHOHOHS SHHCOHEHHHOHOOHEOORS 
(2) @10774 900004 TST133 SCOPE 
6121 0610776 012706 #81000 MOV OSTACK, SP pRESET STACK 


7 oeoeeeoeeooeeoe7eeoeee#eeeeeeeesvsewees ®@e’ 


P 


MAINDECe{ 1 eDERPTASA 
DERPTA,Pii 


011010 
011016 


011022 
011026 
011032 
011040 
011044 
011046 


011050 
011054 
011062 
811070 


011074 
011102 
011106 


011112 
011116 
011120 
011122 


011124 
011132 


011140 


T13 


012737 


012737 
065037 


005037 
005037 
012737 
004537 
031016 
0327136 


004737 


003077 
012777 
605077 
013741 


004037 
001624 
001674 
000023 


012737 
012737 


004737 


MACY11 27(657) 


010000 
631020 
031022 
031024 


177797 
025646 


024470 
177400 
002064 
170542 
0180008 
170536 
002040 


025146 


177779 
41797779 


030706 


004174 


170842 
£70836 


170840 


002014 
001774 


ISeAPRe7S 172945 PAGE 44036 
DRIVE TIMING ERROR 


MOV OTINO,OCTSTNM  j;THIS CAVES TEST NUMBER 


pTHESE ARE TO SETUP FOR DISKLESS USE 


MOV OFMT22,00CYL $16 BITS PER WORD 
sCYLINOER @ 
CLR OeSECOTR sSECTOR @ 
STRACK @ 
CUR OeKEY sKEYi © © 
CLR OOKEY2 pKEY2 © 6 
MOV 6°1,00X sTHIS I6 A WRITE DATA COMMAND 


JSR RS, OeCRC 960 70 CALCULATE CRC 


§ THESE ARE REGULAR SETUPS 


JSR PC, OOCLOISK sSETUP GENERAL REGISTERS 
MOV 6°256,,@RHWC $256 DATA WORDS 

MOV GWRFROM,@RHBA j;STARTING ADDRESS OF BUFFER 
CUR ORHDST STRACK @ @ 


sSECTOR 
MOV OPMNT22,ORHOF 916 BITS PER WORD 

psECC CORRECTION INHIBITED 
CLR ORHCA pCYLINOER @ @ 
MOV OOWRIDAT, ORI pWRITE DATA © 66 


= REGISTERS FOR COMPARISON AFTER SIMULATED DRIVE TIMING ERROR 
SR 


RO, OOSAVER HBAVE 
RHWC PROM 
we 970 
19, pNUMBER 


NOW GO WILL BE GIVEN, EVERYTHING WILL BE TREATED 

pNORMALLY FOR THE HEADER, BUT WHEN IT I8 TINE FOR 

DATA ONLY, SECTOR CLOCKS WILL BE GIVEN, NO DIAGNOSTIC 

sCLOCKS WILL BE GIVEN, THIG SHOULD BRING SECTOR PULSE HIGH 

pWITHOUT PUTTING READ DOWN WENCE OTE WILL CONE UP, 

MOV 0°14, 00TESOTE 98ET DTE TEST 

MOV 6°1, 008ERFLGS sTHIG WILL BRING THE READ HEADER 
AND DATA PROCESS OUT AFTER THE 
pHEADER HAS BEEN CORRECTLY READ 


JSR PC. OeCOMHD pREAD HEADER AND DATA 


pNOW THE HEADER HAS BEEN READ 

pNOW S60 SECTOR CLOCKS WILL BE GIVEN 

pGAP 43 BYTES, SYNC 1 BYTE, DATA 842, y 4 BYTES 
9GAP 2 BYTES, TOLERANCE 20 BYTES, EXTRA 


pTHESE 560 SECTOR CLOCKS ARE DIVIDED INTO TWO Groups 
924 SECTOR CLOCKS WITH NORMAL DIAGNOSTIC CLOCKS 








A 


.9 e@ee 6 6 6 66@hU6U6!lm6mUM OWUmUCOUCOWUCOODUCOelC SC SEC SC OlLUCUCOLCUDOBLCUD 


MAINDEC*11°DERPTASA 


DERPTA,Pil 


6174 
6175 
6176 
6177 
6178 
6179 
6180 
6161 
6162 
6183 
6164 
6165 
6186 
6187 
6188 
6169 
6190 
6191 
6192 
6193 
6194 
6195 
6196 
6197 
6198 
6199 
6200 
6201 
6202 
6203 
6204 
6205 
6206 
6207 
6208 
62¢9 
6210 
6211 
6212 
6213 
6214 
6215 
6216 
6217 
6218 
6219 
6220 
6221 
6222 
6223 
6224 
6225 
6226 
6227 


@11144 
011150 
011154 
011160 
011164 
011170 
@11174 
011200 
011204 
011206 
011210 
011212 


011214 
011220 
011224 
011230 
011232 


011234 


011242 
011250 
011256 
011264 
011272 
011300 
011306 
011314 
011322 
011330 


011336 
011342 
011344 
011346 


011350 


T13 


012701 
013700 
012710 
052710 
042710 
012702 
052710 
042710 
005302 
001372 
005301 
601362 


012701 
032710 
042710 
005301 
001372 


017737 


012737 
012737 
052737 
052737 
052737 
012737 
052737 
012737 
012737 
013737 


004037 
001624 
003130 
000023 


413737 
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000030 
001652 
000001 
000012 
000012 
000007 
000082 
000002 


170424 


177416 
062120 
140000 
600300 
0100006 
000201 
140000 
000180 
000001 
602004 


025146 


0013721 


001734 


001674 
001676 
001702 
001700 
001704 
001722 
001724 
001736 
001706 
001720 
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sAND $36 SECTOR CLOCKS WITHOUT ANY DIAGNOSTIC CLOCKS 


pTHIS GIVES 24 SECTOR CLOCKS WITH DIAGNOSTIC CLOCKS 


MOV 024,,Ri ;COUNTER, 
MOV @eRHMR, RO sGER RHMR ADDRESS 

MOV 8DMD, @RO }SET DIAGNOSTIC MODE 

BIS @MSTCKIMCLK,@RQ SET SECTOR CLOCK AND CLOCK 

BIC OMSTCKIMCLK,/@R@ FCLEAR SECTOR CLOCK AND CLOCK 
MOV #7,R2 sCOUNTER FOR DIAGNOSTIC CLOCKS 
BIS eMCLK, ORO s8ET CLOCK 

BIC eMCLK, ORO sCLEAR CLOCK 

DEC R2 sCUCUNT TO 7 

BNE 4s sBRANCH IF 7 NOT DONE 

DEC Ry sCOUNT 

BNE 18 pBRANCH IF 24 NOT DONE 

STHIS GIVES 536 SECTOR CLOCKS WITHOUT DIAGNOSTIC CLOCKS 
MOV 0536,,Ri sCOUNTER, 

BIS eMSTCK, ORO SET SECTOR CLOCK 

BIC SMSTCK, @RO sCLEAR SECTOR CLOCK 

DEC Ri 1COUNT 

BNE be pBRANCH IF $36 NOT DONE 


pECC PATTERN REGISTER 18 NOT CHECKED 
MOV ORHEC2,@0EC2 pRHEC2 I8 NOT CHECKED 


sNOw DTE SHOULD BE SET CHANGE SAVED REGISTERS TO EXPECTED VALUE 
MOV 9°242,,00WC sSAVED RHWC 


MOV OWRFROMO<€44,02>,00BA »SAVED RHBA 
Bis @OSCITRE,09CSy pSAVED RHCS,4 
BIs @ORIIR, 08CS2 pSAVED RNCS2 

BIs OOTE, @SERI SSAVED RHERI 

MOV @DENVLIDMD, @eMR 3 SAVED RHMR 

BIs @ATAJERR, 00083 »GAVED RHDS4 

MOV 0100,00LA sSAVED RHLA 

MOV 01,08D8T pSAVED RHDST 

MOV OOATTENT, COAS 9SAVED RHAS 


pNOW SAVE REGISTERS AGAIN 80 THAT COMPARISONS CAN BE DONE 


JSR RO, @OSAVER ; SAVE 
RHwC FROM 
REINTO 3TO 

19, pNUMBER 


pFOR RHAS UPPER BYTE 
MOVB OGASe1,OGREINTOSZS ; UPPER RHAS 





», @ © © © © © @ @ @ @ @ @ @ @ @ @ @ 6 @ 





MAINDECe11eDERPTASA 
DERPTA,Pii 


011356 
@11362 
011364 
011366 
011370 
011372 
011374 


011376 
011402 
011404 
011412 


011414 
011416 


011416 
011420 


011432 


011440 
011444 
011450 
011454 
011462 
011466 
011470 


T13 


004037 
001674 
003130 
000022 
011376 
011376 
011416 


013705 
060505 
016837 
104001 


000207 


000004 
012706 


012737 


612737 


006037 
005037 
005037 
012737 
004537 
034122 
034132 


MACY11 27(657) 
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025342 


031136 
001622 


034124 
034126 
034130 
000400 
025646 


004174 


634162 


ISeAPRe7S 17545 PAGE 44038 


pCOMPARE REGISTERS BEFORE COMMAND WITH AFTER COMMAND 
JSR 


RO, COCOMPAR ps COMPARE 
we 36000 BUFFER 
REINTO sTEST BUFFER 
is, sNUMBER 
26 pRETURN FOR ERROR 
28 9 SAME 
36 PRETURN FOR GOOD COMPARISON 
263 MOV ee pGETTING READY TO INDEX 
adD RS» sDOUBLE ERROR WORD 
MOV AnWCoRCRE) p OOREGADR pFAILING REGISTER 
ERROR 1 sIMPROPER REGISTER 
sCHANGE WHILE EXPECTING 
sOTE ERROR 
RTS Pc pRETURN 
388 9600D 


peTEST 14 DRIVE TIMING ERROR 

hed A WRITE HEADER AND DATA COMMAND 16 GIVEN 

hd TO CYLINDER 6, TRACK O, 256, WORDS 

he AFTER SECTOR I6 FOUND (THE SECTOR ag FLOP 18 HIGH) 
ye WO MORE DIAGNOSTIC CLOCKS ARE GIVEN 

he ONLY SECTOR CLOCKS ARE GIVEN eo * sEcToR PULSE 18 HIGH 
se THIG SHOULD SET DRIVE TIMING ERR 


peteueeneobebeupantenenmnensnnssebensnqenquneneieneieeenenelte 
TSTi4ds SCOPE 
NOV OSTACK, SP sRESET STACK 


MOV OTTNO,OOTSTNM  s;THIS SAVES TEST NUMBER 


pTHESE ARE TO SET UP FOR DISKLESS USE ONLY 
MOV OPNT22,00NCYL tage A ~ BITWORDS AND 


pCYLIND 
CLR OeWSECTR MTRACKOee Sectonse 
CLR OOUKEY) PKEYie@ 
CLR OewKEY2 pKEY2e0 


MOV €256,,00FNWORD 3286 DATAWORDS 
JSR RS, OsCRC 960 TO CALCULATE CAC 


p THESE ARE REGULAR SETUPS 





MAINDEC ei 1 eDERPTASA 
DERPTA,Pii 


011472 
011476 
011504 
011512 


011516 


011524 
011530 


011534 
011540 
011542 
011544 


011546 
011584 


011562 


011566 
011572 
011576 
011602 
011604 


011606 
011614 
011622 
011630 
011636 
011644 


T14 


004737 
012777 
012777 
008077 


012777 


005077 
013731 


004037 
001624 
001674 
000023 


012737 
012737 


604737 


012701 
052710 
042716 
065301 
001372 


012737 
012737 
082737 
042737 
052737 
052737 
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024470 
177374 
002064 
170120 


4170114 
002042 


4779777 
1779977 


033776 


177404 
002164 
140808 
000100 
665208 
0169080 


170120 
170114 


170116 


602014 
001774 


001674 
001676 
001762 
001700 
001700 
001764 
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JSR PC, OeCLOISK sSETUP GENERAL REGISTERS 
MOV $°260,,@RHWC $256 DATA WORDS 4HEADER 
MOV OWRFROM,@RHBA j;STARTING ADDRESS OF BUFFER 
CLR ORHOST pTRACK @ ¢ 
pSECTOR © 6 

MOV ernra2sect,eRnor’ 916 BITS PER WORD 

sECC Soon ae INHIBITED 
CLR ORHCA sCYLINDER @ 
MOV OOWRIFOR, ORI SWRITE MEADER AND DATA ®& 62 


SAVE REGISTERS FOR COMPARIGON AFTER SIMULATED ORIVE TIMING ERROR 
JBR RO, COSAVER p SAVE 


WOW GO WILL BE GIVEN, EVERYTHING WILL BE TREATED 

pNORMALLY TILL HEADER 36 TO BE GIVEN, THEN ONLY 

pGECTOR CLOCKS WILL BE GIVEN, NO DIAGNOSTIC 

pCLOCKS WILL BE GIVEN, THIS SHOULD BRING SECTOR At HIGH 

pWITHOUT PUTTING READ DOWN HENCE OTE WILL COME UP 

MOV 6°), O0TESDTE pSET OTE TEST 

MOV @o1, OCERFLGS pTHIS WILL BRING THE READ NEADER 
pAND DATA PROCESS OUT AFTER THE 
SHEADER HAS BEEN CORRECTLY READ 


JSR PC. @OCOMWHD SWRITE HEADER AND DATA 


sNOW SECTOR HAS BEEN FOUND 

NOW 609 SECTOR CLOCKS WILL BE GIVEN 

939 BYTES FOR SECTOR GAP 

94 BYTE FOR HEADER Sync 

9@ BYTES FOR HEADER 

GAP 43 BYTES, SYNC 3 BYTE, DATA 642, ECC 4 BYTES 
pGAP 2 BYTES, TOLERANCE 96 BYTES, EXTRA 3 


THIS age a SECTOR wo wITHOUT DIAGNOSTIC CLOCKS 
MOV OUNTER, 


B35 onareke ane MOET SECTOR CLOCK 


BIC OMSTCK, ORO pCLEAR SECTOR CLOCK 
DEC AL sCOUNT 
BNE $8 sBRANCH IF 636 NOT DONE 


NOW DTE SHOULD BE SET CHANGE SAVED REGISTERS TO EXPECTED yALUE 
MOV €°252,,00WC sSAVED RHWC 
MoV OWRFRONS<E,©2>,00BA , SAVED RHBA 


BIs @SCITRE, 00CE) pSAVED RHC) 
BIC OIR,00CS2 pSAVED RHCS2 
Bis OR, 00C82 SSAVED RHCS2 
BIs ODTE, OOER) pSAVED RHER) 





Ce 



















































°” @ @ @ © @ 6 @ 6 6 @ 6 6 @ 6 6 @ CC 6 @ @ 


MAINDEC*1 1 eDERPTASA 
DERPTA,Pi1 


6333 
6334 
6335 
6336 
6337 
6338 
6339 
6340 
6341 
6342 
6343 
6344 
6345 
6346 
6347 
6348 
6349 
6350 
6351 
6352 
6353 
6354 
6355 
6356 
6357 
6356 
6359 
6360 
6361 
6362 
6363 
6364 
6365 
6366 
6367 
6366 
6369 
6370 
6371 
6382 

(3) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(3) 

(2) 
6383 
6384 
63865 


011652 
011660 
011666 
011674 
011702 


011710 
011714 
011716 
011720 


011722 


011730 
011734 
011736 
011740 
011742 
011744 
011746 


011750 
011754 
011756 
011764 
011766 


0117708 


811770 


T14 


012737 
082737 
012737 
012737 
013737 


004037 
001624 
003130 
000023 


113737 


004037 
001674 
003130 
000022 
011750 
011750 
011778 


013705 
060505 


016537 
104001 


000207 


000004 
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025146 


001721 


031136 
001622 


011772 012706 801000 


001722 
001724 
001736 
001766 
001720 


024234 
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MOV 6401, 00MR pSAVED RHMR 
B18 GATALERR, 00051 sSAVED RHDSi 
MOV 9100, 00LA sSAVED RHLA 
MOV 01,00D8T pSAVED RHOST 


MOV OOATTENT,@8AS  ;SAVED RHAS 


pNOW SAVE REGISTERS AGAIN 6O THAT COMPARISONS CAN BE DONE 


JSR RO, OOSAVER js SAVE 
RHWC FROM 
REINTO #TO 

19, »NUMBER 


pFOR RHAS UPPER BYTE 
MOVB OOASe1, OOREINTOSZS PUPPER RHAS 


sCOMPARE REGISTERS BEFORE COMMAND WITH AFTER COMMAND 


JSR RO, OOCOMPAR COMPARE 

we 9G00D BUFFER 

REINTO sTEST BUFFER 

18, pNUMBER 

ae sRETURN FOR ERROR 

28 p SAME 

38 sRETURN FOR GOOD COMPARISON 

MOV @SERWORD,RS 9GETTING READY TO INDEX 

ADD RS,RS sDOUBLE ERROR WORD 

MOV RHWCo2(RS),OCREGADR FAILING REGISTER 

ERROR 1 sZMPROPER REGISTER 
pCHANGE WHILE EXPECTING 
sOTE ERROR 

RTS pc pRETURN 
3G00D 


p@TEST 15 SECTOR SELECTION 

s@ THE SECTOR SELECTION LOGIC 38 CHECKED HERE 

hd EACH SECTOR OW TRACK ZERO 18 WRITTEN INTO 

@ DATA 38 © 49 WORDS OF ZEROS @ SYNC WORDS, 4 HEADER WORDS 
;* 4 CRC WORD, §$ WORDS OF ZEROS, 4 SYNC WORD, 196 SEROS 

hd (DATA), 4 SYNC WORD, 78 SECTOR NUMBER TO VARY 

1* 

7° THE WRITTEN DATA 18 CHECKED In MEMORY 


TSTiSs 


MOV OSTACK, SP pRESET STACK 


(1) 

(1) 
6366 
6367 
6368 
6369 
6390 
6391 
6392 
6393 
6394 
6395 
6396 
6397 
6398 
6399 
6400 
6401 
6402 
6403 
6404 
6405 
6406 
6407 
6408 
6409 
64108 
6411 
6452 
6413 
6414 
6415 
6416 
6417 
6418 
6419 
6420 
6421 
6422 
6423 
6424 
6425 
6426 
6427 
6428 
6429 
6430 
6431 
6432 
6433 
6434 
6435 
6436 
6437 


011776 


012004 


012012 
012016 
012024 
012032 
012036 
012042 
012046 
012054 
012062 


012066 
012066 
012072 
012076 
012100 
012102 


012104 


012110 


012114 


012120 
012124 
012130 


012134 
012140 
012142 
012144 
012146 
012152 
012156 
012162 


MAINDEC*1 1 eDERPTASA 
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Tis 
012737 


012737 


005037 
012737 
012737 
005037 
005037 
005037 
012737 
012737 
005037 


012700 
612703 
005020 
005301 
001375 


004737 


012700 


012720 


012720 
012720 
012720 


012705 
005020 
605305 
001375 
013720 
012720 
012720 
005020 


MACY11 27(657) 


SECTOR SELECTION 


012122 
000025 
006025 
012160 
012242 
012272 
600025 
000025 
012346 


024470 


004174 


012300 
012306 


ISeAPRe75 17545 PAGE 44°41 


8871 


MOV OTTNO, OOTSTNM STHIS SAVES TEST NUMBER 


MOV O22,e@00TAGDTE 322 SECTORS 
pTHIS TEST REPEATS 
pITSELF 22 TIMES 


pTHE FOLLOWING INITIALIZES FOR SECTOR O 


CLR 0088392 PHEADER (SECTOR) 

MOV 021500088402 pHEADER (KEY) 

MOV 024000088502 sHEADER (KEY2) 

CLR 0688702 pDATA (SECTOR) 

CLR 00881002 pOATA 

CUR 0088142¢2 PSECTOR (SIMULATED DIS6K) 
MOV @21.9008813¢2 pKEY1 (SIMULATED DOI6K) 


MOV 021,0008814¢2  sKEY2 (SIMULATED DIgkK) 
CLR 008815¢2 pSECTOR (RHDST) 


sCLEAR SIMULATED DISK AREA 


MOV @SECGAP, RO sPOINTER 

MOV 0304,.R1 sCOUNTER 

CLR CROd¢ sCLEAR SIMULATED DISK AREA 
DEC Ri sCount 

BNE as 

sSETUP GENERAL REGISTERS 

JSR PC, OOCLDISK 

9SETUP WRITE FROM BUFFER 

wOoV @WRFROM, RO 

p HEADER 

MOV OFHT22, (ROO sFORMAT 16 BITS PER WORD 


sCYLINDER @ 


MOV 00, (RO)o pSECTOR TO VARY 
MOV O2iee (ROO KEY, TO VARY 
MOV 2100 (RO)> pKEY2 TO VARY 


pDATA IN WRITE FROM BUFFER ALTHOUGH THIS I8 DATA AND NOT 
pHEADER THE SECTOR WITH SYNC BYTES WILL BE GIVEN Ag DATA 
pDATA 18 © 19 WORDS OF ZEROS © SYNC WORDS, 4 HEADER WORDS 
91 CRC WORD, § WORDS OF ZEROS, 4 SYNC WORD, 199 BEROS 
pCDATA), 4 SYNC WORD, 7@ SECTOR NUMBER TO VARY 


MOV 019,,R5 sCOUNTER 

CUR C(RO)e 919 ZEROS 

DEC RS sCOUNT 

BNE 64 919 DONE? 

MOV OORSYNC,(RO)®  sSYNC © 14400 
MOV OFMT22, (ROD? sCYLINDER @ 

MOV 00, (RE)e sSECTOR TO VARY 


CLR CRO) 


,eeoeoeoeeeeeweeweeeeee&e ehlUcOhlUCcCOhlCUCcCOlhUCcCOhUC~ OhClUrP} 


| 


MAINDEC*1 1 eDERPTASA MACY11 27(657) 1SeAPR°7S 17545 PAGE 464042 
DERPTA,Pil Tis SECTOR SELECTION 
6438 012164 905020 CLR CRO)¢ 
6439 ©12166 004537 025646 JSR RS,@8CRC sCALCULATE CRC FOR ABOVE 4 WORDS 
6440 012172 002134 WRFROMeS@ 94 WORDS START FROWN HERE 
6441 012174 002144 WRFROM+60 PUT CRC HERE 
6442 
sees 012176 005720 TST (RO)¢ pINCREMENT RO 
444 
6445 12200 012705 se00es MOV 05,9RS 
6446 012204 005020 TT CLR (RO)¢ 9S WORDS OF ZEROS 
6447 012206 005305 DEC RS sCOUNT 
6448 012210 001375 BNE a6 BRANCH IF S NOT DONE 
6449 
cee 012212 013720 031126 MOV @ORSYNC,(RO)®  38YNC @ 14400 
451 
6452 012216 012708 900146 MOV 6100, RS 
6453 012222 005020 gos CLR (RO)e 9100 WORDS OF ZEROS 
6454 012224 005305 DEC BS 
sess 012226 001378 BNE 96 
456 
6457 012230 013720 031120 MOV @ORSYNC,(RO)®  38YNC @ 14400 
6458 012234 612705 900106 MOV 070,585 
6459 012240 012720 eeseee 68103 MOV 00, (RO)o SECTOR TO VARY 
6460 012244 005305 Dec BS 
6461 012246 001374 BNE 8sie 
6462 
oes) sCLEAR REST OF 256 WORDS THAT 16 54 WORDS OF ZEROS 
646 
6465 012250 012708 900066 MOV 054,,R5 
6466 012254 095020 118s CLR (RO)o 
6467 012256 905305 DEC RS 
6468 012260 601375 BNE 118 
6469 
6470 sTHESE ARE TO BE SET UP FOR DISKLESS USE ONLY 
6471 012262 612737 @10008 034122 MOV OFMT22,@0WCYL FORMAT © 46 BIT WORDS 
6472 CYLINDER @ @ 
6473 012270 612737 ee90ee 034124 8812: MOV 00, 0eWSECTR SECTOR TO VARY 
6474 012276 012737 ©800028 634126 88133 ‘NOV 021, 9 COWKEYS pKEY, TO VARY 
6475 012304 012737 600028 034130 s88i43 MOV 021, ,@0WKEY2 pKEY2 70 VARY 
6476 012312 612737 @00312 034162 MOV 0202,,00FNWORD 9202 DATA WORDS 
6477 012320 604537 025646 JER RS,@eCRC CALCULATE CRC 
6478 012324 034122 weYL sPIRST WORD é 
eve 012326 034132 Gerc pPUT HERE 
6461 THESE ARE REGULAR SETUPS 4 
6482 012330 012777 177400 167266 MOV €°256,,@RHWC 9202 DATA, 4 HEADER 
6483 012336 012777 902064 167262 MOV OWRFROM,ORHBA j;FILL BUS ADDRESS 
6484 012344 012777 @0008@ 167264 88153 MOV 00, 0RHDST sSECTOR TO VARY ¢€ 
6485 012382 013777 002042 167252 MOV OeWRIFOR,ORHCS1 SGET READY TO DO 
64es pWRITE HEADER AND DATA 
6487 pW2TH 62 IN RHCSs t 
6488 012360 012777 @1¢0900 167254 MOV @FMT22,ORHOF 916 BITS PER WORD FORMAT 
seee 012366 905077 167282 CLR @RHCA sCYLINDER © @ P 
4 
6491 012372 005037 001774 CLR OcERFLGS CLEAR ERROR FLAG 


Speer tesa icon x OER PE OETA L TALE LEER INL DD ELLA ALAR ALLE IAAI, 5 ER 


y 





x» @2 @& @ &@& @ @&@& @ @&@ &ehlCKlmlC KHUmUCDUmUCRHDUC HHULCDUC HUC HDC UDUlmUC KUClCM 


e 
MAINDEC*1 1 eDERPTACA WACYI1 27(657) ASeAPRO7S 17545 PAGE 44043 
® DERPTA, Pi TiS SECTOR SELECTION 
e492 
64 
t (1) 
(1) @12376 0046767 012122 JSR PC, CHECKT }CHECK DVA, RDY, DPR, DRY 
(1) 
i 6494 
6495 012402 004737 033776 JSR PC, @eCOMWHD )WRETE HEADER AND DATA COMMAND 
° 6496 012406 005737 901774 18T OcERFLGs }HAS ANY ERRORS OCCURRED 
649 
(1) 012412 @01046 BNE 18T16 ©) BRANCH IF Yes 
° 1) 
6498 
6499 012414 004737 024706 JSR PC, OOCHECKE SCHECK DVA,RDY, DRY, DPR 
6500 
o 6501 )NOW COMPARE "DISK" BUFFER WITH *REZNTO® BUFFER 
$502 012420 000037 028342 JSR RO, OOCOMPAR CHECK 
° 6503 012424 002074 WRFROMCS, 1G00D BUFFER 
6504 012426 032734 DISK }TEST BUFFER 
6505 012430 e0edee 256, ;NUMBER OF WORDS 
° 6506 012432 012440 168 PRETURN POINT FOR ERROR HEADER 
6507 012434 012444 178 SRETURN POINT FOR ERROR DATA 
6508 012436 012450 188 PRETURN FOR GOOD COMPARISON 
° 6509 012440 104007 168: ERROR 7 
6510 012442 000207 RTS pe 
6511 012444 104010 1788 «ERROR. «16 
. 6512 012446 0990207 RTS PC 
6513 
4514 }THE FOLLOWING INCRENENTS ARE 10 CHANGE THE ABOVE SET UP 
° 65:5 70 WRITE ON THE NEXT SECTOR 
6516 
6517 012450 005237 012122 108i 9088302 SHEADER (SECTOR) 
° 6518 012454 005337 012126 DEC 0088462 pHEADER (KEY) 
6519 012460 005337 012132 DEC 0088502 sHEADER (REY2) 
6520 012464 005237 012160 INC 0088702 }DATA (SECTOR) 
e 6521 012470 005237 612242 Inc 0088\9¢2 pDATA 
6522 012474 905237 012272 INC 00583202 pSECTOR (SIMULATED DISK) 
6523 12500 008337 012300 DEC 00883302 REY, (SIMULATED D38K) 
6524 012504 005337 012306 DEC 00883402 )KEY2 (SIMULATED DISK) 
€ 6525 012510 05237 012346 INC 00881502 SSECTOR (RHDST) 
6526 
6527 012514 005337 002016 882: vec eeTacoTE ICOUNT DOWN FOR 22 SECTORS 
€ 6528 012520 eo1ee1 BNE 18 )BRANCH IF 22 SECTORS NOT DONE 
6529 
° (1) 012822 pede BR T8T16 © )DGO OUT 
a 
6532 012524 000137 012066 168 gue 0088; 1Go BACK 
» 6531 
6532 
6533 
6542 
€ 65 é 3 g SSS SEGCSSGGSGIGHEGSFOEBSSOHPFTESIHSSGHREDSOOTOHFSESSSSHOKOSHEELOSD 
GQ) TEST 16 WRITE ECC TEST 1 
(4 
. (4) 0 THIS 18 A WRITE ECC TEST 
€ 
a 








MAINDECe{ 1 eDERPTASA 


DERPTA,P1ii 


(2) 012530 
6544 0612532 


(1) 012536 


6547 0612544 
6548 012550 
6549 012554 
655@ 012560 
6551 012562 
6552 012564 


6556 012570 
6557 012576 
6558 612602 
6559 012610 
6560 012616 
6561 012622 
6562 012626 
6563 012632 


6570 012636 


6572 012644 
6573 012652 
6574 012656 
6575 012662 
6576 012670 
6577 012674 
6578 012676 


6582 012700 
6583 012706 
6584 012712 


6566 012716 


6588 012722 
6889 012726 


T16 


000004 
012706 


012737 


012700 
012701 
012720 
005301 
001374 
004767 


012737 
005037 
013737 
013737 
065037 
005037 
005037 
005037 


012737 


012737 
005037 
0038037 
012737 
004537 
034122 
034132 


012777 
012700 
010077 


012720 


012720 
005020 


MACY11 27(657) 


WRITE ECC TEST 1 


001000 


032636 
000402 
177777 


0117008 


477777 
027140 
027134 
027142 
027126 
027130 
027144 
027146 


010000 


000001 
034126 
0341306 
000400 
025646 


177374 
002064 
1667130 
010000 


004174 


002012 


027136 
027150 


034122 
034124 


166716 


ISeAPRo75 


17445 PAGE 44044 


WRITE CYLINDER@, FORMAT 16 BITS PER wORD 
TRACK @, SECTOR 1, KEYS 6, NUMBER OF WORDS 256 
OF ALL ZEROS, 


TSTi6s 


SCOPE 
MOV 


MOV 


MOV 
MOV 
MOV 
DEC 
BNE 
JSR 


OSTACK, SP 


OTTNO, OOTSTNA 


@SECGAP, RO 
0256,,Ri 
C-1,CRO)¢ 
Ri 


1a 
PC CLOISK 


pREGET STACK 


STHIS SAVES TEST NUMBER 
pPOINTER 


sCOUNTER 
SFILL SIMULATER DISK WITH ONES 


sTHIG 38 USED TO SET GENERAL REGISTERS 


sTHESE ARE FOR ECC TEST ONLY 


MOV 
CLR 
MOV 
MOV 
CLR 
CLR 
CLR 
CLR 


6°1,08TSECC eTHIS 38 AN ECC TEST 

oePposIty sCLEAR ERROR POSITION COUNTER 
GOONCODE, BONCOUNT pTEMPORARY NeCODE COUNTER 
OOHARDER, OOHADTMP STEMPORARY HARD ERROR COUNTER 
@eGECCi sECC LOW ORDER TO BE GENERATED 
@eGECC2 pECC HIGH ORDER TO BE GENERATED 
@sDATENV gCLEAR DATA ENVELOPE CLOCK COUNT 


@OZCODE CLEAR LEADING ZEROS CLOCK COUNT 


pTHESE ARE TO BE SETUP FOR DISKLESS USE ONLY 


MOV 


MOV 
CLR 
CLR 
MOV 
JBR 
weyL 
GcrRC 


OFMT22, C0NCYL 


@1,0eWSECTR 
@owKEY) 
OeowKEY2 
0256,,00FNWORD 
RS,@6eCRC 


SPORMAT220168IT WORDS AND 
sCYLINDER @ 

sTRACKS@, SECTORG} 
sKEYis@ 

pKEY209 

9256 DATA WORDG 

sG0 TO CALCULATE CRC 


pTHESE ARE REGULAR SETUPS 


MOV 
MOV 
MOV 


MOV 


CLR 


62266,,@RHWC 
OWRFROM, RO 
RO, ORHBA 


OFUT22,(RO)® 


Oi, CRO)¢ 
(RO)¢ 


9286 DATA WORDS 4 HEADER WORDS 
sTHESE TWO INSTRUCTIONS Gets 
pADOR, OF WRFROM INTO Re AND 
98US ADDRESS REGISTER 
sPORMATS36 BIT WORDS 
sCYLINDERSS 

sTRACKeg, SECTORS], KEYSe@ 
pKEYie@ 


MAINDEC*11¢DERPTASA 
DERPTA,Pii 


6590 
659) 
6592 
6593 
6594 
6595 
6596 
6597 

(4) 

(4) 

(1) 
6598 
6599 
6600 
6601 
6602 
6603 
6604 
6605 
6606 
6607 
6606 
6609 
6610 
6611 
6612 
6613 
6614 

(1) 

(1) 
6615 


012730 
012732 
012736 
012742 
012744 
012746 


012754 


012760 


012764 
0127708 
012776 
013002 


013006 


013012 


013014 
013022 
013624 
013026 
013030 
013036 
013040 


013060 
013066 


T16 


005020 
012705 
012720 
005305 
001374 
012777 


004767 


013711 


005037 
612777 
005077 
004737 


005737 


023737 
001402 
104031 
000405 
023737 
001401 
104031 


004737 


004037 
003130 
004126 
000000 


013737 
013737 


MACYi3 27(657) 
WRITE ECC TEST 1 


000400 
000000 


800001 166662 


011544 


001774 
010000 166644 
166642 
033776 


001774 


627126 033734 


027138 033736 


024706 


027126 004130 
027138 004132 
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CLR (RO)¢ HKEY280 
MOV 6256,,R5 sCOUNTER 
36s MOV 00, (RO)¢ sMOVE ALL ZEROS FOR DATA 

DEC RS 

BNE 368 sBRANCH IF DATA NOT COMPLETE 

MOV 64, @RHDST pTRACKs@ SECTORS, 

JSR PC, CHECKT pCHECK DVA, ROY, DPR, DRY 

MOV OCWRIFOR, ORI sGET READY FOR WRITE HEADER AND 
sOATA WITH 62 IN RHCOi 

CLR OoERFLGS pCLEAR ERROR FLAG 

MOV OFMT22, ORHOF SFORMAT BITe, (16 BIT WORDS) 

CLR ORHCA sCYLINDER sg 

JSR PC, OeCOMWHD pWRITE HEADER AND DATA 


pIF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
pPROM THE "COMWHD"” ROUTINE THAT MEANS ALL HEADER ON DISK 
928 GOOD JE, ONLY DATA 18 TO BE CHECKED TO SEE If THEY ARE 
pALL ZEROS AND WRITE DATA GAP AND TOLERANCE GAp TO SEE IF 
pTHEY ARE ALL ZEROS 


TsTt OCERFLGS pHAS ANY ERRORS OCCURED? 
pif WAITE ERROR OCCURS ECC 38 NOT CHECKED 


BNE TST17? «= 9BRANCH IF YES 


COMPARE SOFTWARE GENERATED ECC wiTH THAT GENERATED By HARDWARE 
CMP OeGECC1,@eWECC ;COMPARE SOFTWARE ECC WITH HARDWARE 5 BS 


BEQ 66 sBRANCH IF GOOD 
ERROR 31 sLOW ORDER ECC IN ERROR 
BR 78 pBRANCH TO CONTINUE 
6s CMP 09GECC2, eWECC2) COMPARE SOFTWARE ECC WITH HARDWARE ECC 
BEQ 78 sBRANCH IF GOOD 
ERROR 31 eMIGH ORDER ECC IN ERROR 
768 JSR PC. OOCHECKE CHECK DVAsRD¥s DRY, DPR 


FILL *REINTO® BUFFER wITH EXPECTED DATA 


JSR RO, @OCLAREA gFILL REINTO BUFFER 
REINTO sFROM 
REINTO¢<355 ,¢2> 3T0 

e4ORD (*) sDATA 

MOV @OGECC1, OFREINTOSCC2S6,©2>9FILL ECCS 


MOV OOGECC2, OOREINTOS<C]ZS7,O2>;9FILL ECC] 


ft 


>e©eeneeeeeeeee eee kthlektlcetlctl ele le 


{ 
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DERPTA,Pil T16 WRITE ECC TEST 1 
6639 8013074 004037 0624406 JSR RO, OSCLAREA sFILL REST 
6640 813100 004134 REINTO*<256 ,02> FROM 
6641 613102 004170 REINTO*<272,02> TO 
6642 013104 900000 ® pDATA 
6643 
6644 
6645 013106 0605037 001774 CUR OeERFLGS sCLEAR ERROR FLAG 
6646 
6647 
6648 pNOW COMPARE "DIGK® BUFFER WITH "REINTO® 
6649 013112 604037 625342 JSR RO, COCOMPAR sCHECK 
6650 13116 003130 REINTO sG00D BUFFER 
6651 013120 632734 018K pTEST BUFFER 
6652 013122 000402 258, pNUMBER OF WORDS CHECKED 
6653 013124 613132 48 SRETURN POINT FOR ERROR HEADER 
foes 013126 013136 Se sRETURN POINT FOR ERROR DATA 
655 
(1) 013130 013142 T8T17 SRETURN FOR GOOD COMPARISON 
(1) 
6656 813132 104007 468 ERROR 7 sREAD ERROR 10 NEXT 
6657 013134 0600207 RT6 Pc pRETURN TO COMPARE 
6658 0613136 104010 58s ERROR 16 sWORD NOS 3 TO 256 ARE 
6659 sDATA WORDS 
6662 pWORD NOS 257 AND 258 
6661 pARE ECC WHICH ARE CHECKED 
6662 sWORD NOS 259 
6663 938 DATA GAP 
6664 sWORD NOS 260 TO 273 
6665 pARE TOLERANCE GAP 
aoe 013140 0600207 RTS pc pRETURN TO COMPARE 
666 
6668 
6669 
6670 
6671 
6682 
6683 PSSSSSHOHSSHHSSOLHSOHHHHHSSHHHSHHHSHHHHOHOHHOHHHOHOSHHHHSHHGOOEES 
rh peTEST 17 READ ECC ENABLED 1A 
(4 
(4) s@ THIS 16 AW ECC READ DATA TEST 
(4) hd ERROR CORRECTION 18 ENABLED 
(4) ye NO ERROR 16 INSERTED 
(4) hd GOOD DATA USED I8 256 WORDS OF @ 
(4) @ COMMAND 38 GIVEN FOR CYLINDER @ FORMAT 16 BITS PER WORD 
+8 i* TRACK @, SECTOR @ KEYS @ READ HEADER AND DATA 
(3) JPSSOSSSSEESOSHHOHHHSOHHHESOHHHHHHOHHOSHHHHOOHHHOHHHOHHSOEHEOHOD 
(2) 013142 000004 TSTi78 ©6SCOPE 
6664 013144 012706 601000 MOV OSTACK, SP pRESET STACK 
6685 
6686 
+H 013150 012737 ©00017 0904174 MOV OTTNO,OOTSTNM j;THIS SAVES TEST NUMBER 
(1 
6687 


d 
ataveatatelteteate 671611618 betes ete ete 6 


° @ © © @ @ @ 6 6 6 @ 








6666 
6669 
6699 
6691 
6692 
6693 
6694 
6695 
6696 
6697 
6698 
6699 
6700 


013156 
013162 
013166 
013172 
013174 
013176 
013200 
213202 
013204 


013210 
013212 
013214 


013222 
013230 
013234 
013242 
013250 
013254 
013260 
013264 


013270 


013276 
013304 
013312 
013320 
013326 
013334 
013340 
013344 
013346 


013350 
013354 


MAINDEC ©] 1 eDERPTASA 
DERPTA,Pii 


T17 


012746 
012705 
012700 
011626 
005305 
001375 
005726 
022020 
012705 


005020 
005305 
001375 


004737 


012737 
005037 
013737 
013737 
005037 
005037 
005037 
005037 


612737 


112737 
412737 
012737 
012737 
012737 
605037 
004537 
031016 
032716 


004737 
012777 


MACYS1 27(657) iSeAPRe75 17545 PAGE 44°47 
READ ECC ENABLED iA 


SETUP FOR WHAT I8 TO BE READ 
HEADER CRC 18 RESTORED FROM A SUBROUTINE 


eeecee MOV 60, (SP) sDATA TO BE READ 
0004008 MOV 6256,, RS sCOUNTER 
032734 MOV ODISK, RO SSTART OF SIMULATED DISK DATA 
iss MOV (SP), (RO)®  ~sMOVE IN DATA ON TO SIMULATED DISK 

DEC RS sCOUNT 

BNE Lé SBRANCH IF 256 NOT COMPLETE 

T8sT (SP)¢ pUNDO ©( SP) 

CuP CRO)o, (ROO sJUMP OVER THE TWO ECC WORDS 
000017 MOV C15. 8 86RS 94 DATA GAP 

914 TOLERANCE GAP 
at CUR CRODe pCLEAR DATA GAP, AND 

bec RS pTOLERANCE GAP 

BNE a6 pBRANCH IF NOT COMPLETE 
027722 JSR PC, OOFILLEC SINGERT THE TWO ECC WORDS ON THE DISK 

IN THE CORRECT PLACE 

pTHESE ARE FOR ECC TEST ONLY 
4177777 «002012 MOV 0°41, O98TSECC pTHIS 38 AN ECC TEST 
027140 CLR OopOsITz pCLEAR ERROR POSITION COUNTER 
027134 027136 MOV OeNCODE, OONCOUNT STEMPORARY NeCODE COUNTER 
627142 627150 MOV OHARDER, OGHADTMP pTEMPORARY HARD ERROR COUNTER 
627126 CLR @eGECC! ECC LOw ORDER TO BE GENERATED 
027130 CLR @ececc2 sECC HIGH ORDER TO BE GENERATED 
027144 CLR OeDATENY pCLEAR DATA ENVELOPE CLOCK COUNT 
027146 CLR @eZCODE pCLEAR LEADING ZEROS CLOCK COUNT 

pTHESE ARE TO SETUP FOR DISKLESS USE ONLY 
010008 631016 MoV OFMT22,00CYL p16 BITS PER wORD 

pCYLINDER @, FORMAT 46 BITS 

000008 031021 MOVB Oe OOBECOTRe, TRACK @ 
o00008 031020 MOVB iT OOSECOTR ;SECTOR @ 
eeee8e 631022 MOV iT OOKEY, sKEYie9 
000000 931024 MOV 68. OOKEYQ  ;KEYQ09 
eee040e 031076 MOV 6256,, O@DAWORD ;NO, OF DATA WORDS 
031026 CLR Bea pTHI6 I6 A READ COMMAND 
025646 _ RS, @eCRC 160 TO CALCULATE Cac 

werRC 

pTHESE ARE REGULAR SETUPS 
024470 JSR PC, OOCLOISK sSETUP GENERAL REGISTERS 
177374 166242 MOV 0°256,°4,,ORHWC 9256, DATA 4 HEADER WORDS 


ry a © © 8@ 84 84 4 © © © © @e& © © 68 @®& © © @& 8 


A 
we 


eoaeeeeuewe3uee3seseeeee8eeeeeeee e@! 


F 


— 





MAINDEC*11eDERPTACA 


DERPTA, Pit 


6742 613362 
6743 013370 
6744 613374 
6745 613402 
6746 613406 


6750 013414 
6752 013420 


6754 0613424 
6755 013430 
6756 013434 


6771 013440 
(1) 013444 


6773 013446 
6774 013452 
6775 013456 
6776 013460 


6780 0613462 
6781 613466 
6782 013472 
6783 013476 
6784 013500 


6792 013502 
6793 013506 


T17 


012777 
112746 
112766 
012677 
012777 


005077 
004737 


013711 
005037 
004737 


005737 
001077 


004737 
005737 
001401 
104032 


013746 
642716 
022637 
001401 
104032 


012700 
052777 


MACY11 27(657) iSeAPRe75 17545 PAGE 44°68 


READ ECC ENABLED 1A 
aaaehe 166236 
seeese 060001 


166224 
024524 
002046 


001774 
030706 


001774 


024170 
001704 


027126 Get 
174000 
001734 


068020 788 
000002 166136 Hs 


MOV OREINTO,@RHBA  sSTARTING ADORESS OF READ BUFFER 
MOVB 00, °( SP) sIN LOWER BYTE GET SECTOR 

MOVB 00, 1(¢8P) pGET TRACK IN HIGHER BYTE 

MOV (SP)¢, ORHDST sTRACK/SECTOR IN RHOST 

MOV OFMT2Z2,@RHOF 946 BITS PER WORD 


sECC CORRECTION NOT INHIBIT 
sBECAUSE ECC 18 NOT GOING 
970 BE CHECKED 


CUR ORHCA sCYLINDER @ 

JSR PC, OOCHECKT sCHECK FOR DVA, ROY, MOL, OPR, ORY 
MOV OOREFOR, ORI SREAD HEADER AND DATAG72 

CLR OoERFLGS pCLEAR ERROR FLAG 

J8R PC. OeCCOMHD sREAD HEADER AND DATA 


pF THERE ARE READ ERRORS THEN 
sECC WILL WOT BE CHECKED 


oF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
FROM THE "COMHD® ROUTINE THAT MEANS SECTOR GAP, 

sVIRST SYNC, HEADER, HEADER CaC, HEADER GAP AND 

pSYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 
pOETECTED 

pHEADER AND DATA ARE TO BE CHECKED, 

gIN CHECKING READ DATA THE WRITE FROM BUFFER 

p°WRFROM” I6 FILLED WITH EXPECTED DATA AND 

sCOMPARIGONS ARE MADE 


T8T OCERFLGS 
BNE TST20 8 «=6p BRANCH IF YES 
JSR PC, OOPUTREG pGAVE REGISTERS 


pANY ERRORS ALREADY THERE 


T8T OelRy NO ERRORS SHOULD BE SET 
BEQ 6% sBRANCH EF BO ERRORS SET 
ERROR 32 932 BIT ECC REGISTER SHOULD BE ZERO 


sONLY 43 OF THE 32 BITS CAN BE SEEN 
$38 THE PATERN REGISTER 
sDCK SHOULD BE SET IN RHERI 
MoV @0GECC1,°( SP) 1GET PATTERN REGISTER 
BIC 0174000, (SP) KEEP ONLY 31 BITS 
CMP (8P)o,00EC2 SCOMPARE PATTERN REGISTER 
BEO 78 sBRANCH IF GOOD 
ERROR 32 943 BITS OF THE 32 BIT ECC REGISTER INCORRECT 


pADD 16 MAINTENANCE CLOCKS TO 
pBRING EBL DOWN 


MoV 016,,R0 sCOUNTER 
BI8 @MCLK, ORHMR SET CLOCK 


r 
ay 


xy fatehlCHelmllCOHelmlCHKHllC HCCC KHllC KH Cia lei CG a Hic“ HC Heli KH Cia Hii“ Cai“ Cia lia“ S—“i‘iéia hh} 





© *) 
MAINDEC*4 1 eDERPTASA MACY11 27(657) {SeAPRe7S 17945 PAGE 44°49 
e DERPTA,Pii T17 READ ECC ENABLED iA Q 
6794 613514 042777 90002 166130 eric OMCLK, ORHMR SCLEAR CLOCK 
6795 013522 905300 DEC RO pCOUNT 8 
é 6796 013524 00137¢ BNE 68 pBRANCH IF 46 CLOCKS NOT DONE 
6797 013526 004737 0246706 JSR PC, OOCHECKE sCHECK DVA,DRY,RDY,OPR 
6798 013532 012700 002064 MOV OWRFROM, RO pGETTING READY TO FILL EXPECTED DATA © 
a 6799 013536 012720 #10000 MOV OOLFUT22,(RO)® sSCYLINDER @ 
6000 013542 112746 eeecee Movs 00. (6?) IN LOWER BYTE GET SECTOR 
6801 013546 112766 @80008 900001 MOVs 00 1(8P)  )GET TRACK IN HIGHER BYTE 3] 
€ 6002 013554 612620 MOV (SP), (RE)® 4 GET TRACK/SECTOR IN SUFFER 
6803 013556 012720 eeceee MOV Ts (Re)* sKEYs In SUFFER 
6804 013562 012720 seecee “OV 00, (Rede sKEY2 IN SUFFER a) 
& 6805 013566 012701 e0040e0 MOV 0256. Ri pOATA WORD COUNTER 
6806 013572 012702 ee0000 MOV 00 R2 pOATA 
6807 013576 010220 383 MoV R20 (Re)  ;DATA INTO BUFFER @ 
o 6808 013600 905301 DEC Ry sCOUNT 
6809 013602 003375 BNE 46 pBRANCH IF 286 NOT DONE 
6010 oS 
S 6011 
6812 013604 005037 001774 CLR OCERFLGS PCLEAR ERROR FLAG 
e 6013 013610 004737 024170 JSR PC, OOPUTREG pGAVE REGISTERS @ 
6014 
6015 
6816 © 
G 6017 pNOw READ DATA BUFFER wILL BE CHECKED 
6018 
6019 013614 094037 025342 JSR RO, COCONPAR pCHECK 8 
6 6820 013620 002064 WRFROM 9G00D BUFFER 
6621 013622 003130 REINTO pTEST BUFFER 
6822 013624 000406 40256, NUMBER OF WORDS CHECKED @ 
6S 6023 013626 013634 ai pRETURN POINT FOR ERROR HEADER 
6824 013630 013640 &@ pRETURN POINT FOR ERROR DATA 
6625 
6 3 013632 013644 T8720 pRETURW FOR GOOD COMPARISON e 
«i 
6026 013634 1046006 TY) ERROR 4 pREAD WEXT ERROR oO 
@ 6827 013636 000207 RTS pc RETURN TO "COMPAR® 
6828 013640 104008 888 ERROR § WORD NOS 4 TO @ ARE 
6829 pHEADER WORDS ® 
& 6830 98 TO 26@ ARE DATA WORDS 
6831 013642 000207 RTS pc pRETURN TO *COMPAR® 
6032 o 
ce) 6033 
6034 
6035 
Oo 6046 e 
66 47 PESSSVGEFEGOGOGCTEEOTEHEGSHHSSSOOCHIS PO SVSEOHKGIFHLHVEOHGOOYOEVOEHOONS 
° (3) peTEST 20 READ ECC EWABLED 38 e 
(4) 9® . THES 28 Aw ECC READ DATA TEST 
(4) se ERROR CORRECTION Ig ENABLED © 
& (4) 3° A CORRECTABLE ERROR 18 INSERTED IN BIT POSITION 32 
(4) ;e GOOD DATA USED 18 256 WORDS OF @ 
G (4) fa COMMAND 3g GIVEN FOR CYLINDER @ FORMAT 16 BITS PER WORD fe) 
(4) 42 TRACK @, SECTOR @ KEYS @ READ NEADER AND DATA 
G ° 
a) _o 





om 


(4) 

(3) 

(2) 
6648 
6649 
6652 

(1) 

(1) 
6651 
6652 
6653 
6654 
6655 
6656 
6657 
6658 
6659 
6660 
6661 
6862 
6863 
6664 
6665 
6866 
6667 
6668 
6869 
6870 
6671 
6672 
6673 
6674 
6675 
6676 
6677 
6678 
6679 
6860 
6661 
68662 
6663 
6684 
6665 
6686 
6667 
6668 
6669 
6890 
6691 
6892 
6693 
6694 
6695 
6696 


lac 


7,0e©eeee eG &e &eelcelhUlUlcrOOhUcrCOlhUCcCCUCcrCUlchOUlUlcrOUlUlcrOUlUlrOlUlOlFlhlUF 


43 


013644 
013646 


013652 


013660 
013664 
013670 
013674 
013676 
013700 
0137092 
913704 
013706 


013712 
013714 
013716 


013720 


013724 
013732 
013736 
013744 
013752 
013756 
013762 
013766 


013772 


014000 
014006 
014014 
014022 
014030 
014036 


MAINDEC*11@DERPTASA 
DERPTA,Pil 


T20 


000004 
012706 


012737 


012746 
012705 
012700 
811620 
005305 
001375 
005726 
022020 
012705 


005020 
065305 
001375 


004737 


012737 
005037 
013737 
013737 
005037 
005037 
005037 
005037 


012737 


412737 
412737 
012737 
012737 
012737 
005037 


MACYS1 27(657) 
READ ECC ENABLED 18 


001000 


000000 
000400 
032734 


000017 


027722 


477777 
027140 
027134 
027142 
027126 
027130 
027144 
027146 


000000 
000000 
080000 
000000 
000400 
031026 


004174 


002012 


027136 
027150 


031016 


031021 
031020 
033022 
031024 
031076 


IS@APRe75 17145 PAGE 44¢50 


POPSOSESOSOSHOFERSSETOOSOHOEESOSE OO DOSESOSSOROSSHOOHOSOCSECOROOES 
TST208 SCOPE 


MOV @STACK, SP sRESET STACK 
MOV OTINO, OOTSTNM STHIS SAVES TEST NUMBER 
’ SETUP FOR WHAT I8 TO BE READ 
’ MEADER CRC IS RESTORED FROM A SUBROUTINE 
MOV 80, (SP) sDATA TO BE READ 
MOV #256,, RS sCOUNTER 
MOV SOISK, RO pSTART OF SIMULATED DISK DATA 
16s MOV (SP), CRO)¢ sMOVE IN DATA ON TO SIMULATED DISK 
DEC RS COUNT 
BNE is pBRANCH IF 296 NOT COMPLETE 
T8sTt (SP)¢ UNDO ©(8P) 
CMP (ROO, (ROO pJUMP OVER THE TWO ECC WORDS 
MOV O15 ee RS 94 DATA GAP 


14 TOLERANCE GAP 


28% CLR (RO)¢ pCLEAR DATA GAP, AND 
DEC RS pTOLERANCE GAP 
BNE 28 pBRANCH IF NOT COMPLETE 
JSR PC, @OFILLEC sINSERT ECC IN PROPER PLACE ON DISK 


pTHESE ARE FOR ECC TEST ONLY 


MOV 6-1, 08TSECC pTHIS 3S AN ECC TEST 

CLR OePOSITI sCLEAR ERROR POSITION COUNTER 

MOV OONCODE, GeNCOUNT pTEMPORARY NeCODE COUNTER 

MOV @OHARDER, OGHADTHP PTEMPORARY HARD ERROR COUNTER 
CLR @eGECCi pECC LOW ORDER TO BE GENERATED 

CLR @eGECC2 pECC HIGH ORDER TO BE GENERATED 

CLR @eDATENV sCLEAR DATA ENVELOPE CLOCK COUNT 


CLR OeECODE sCLEAR LEADING ZEROS CLOCK COUNT 


pTHESE ARE TO SETUP FOR DISKLESS USE ONLY 


MOV OFMT22,00CYL 916 BITS PER WORD 
pCYLINDER @, FORMAT 16 BITS 


MOVB 0. OOSECOTRe, ;TRACK @ 

MOVB 00, @eSECOTR ,SECTOR © 

MOV 60, OOKEY) pKEYie@ 

MOV 60, OeKEY2 sKEY20@ 

MOV €256,¢ O@8DAWORD »NO, OF DATA WORDS 

CLR ex pTHIG 36 A READ COMMAND 


3 
“ 








EES 


MAINDEC*11¢DERPTASCA 
DERPTA,Pii 


6697 
6696 
6899 


014042 
014046 
014050 


014052 


014060 


014066 
014072 
014100 
014106 
014112 
014120 
014124 


014132 
014136 
014142 


014146 
014152 


014156 
014162 
014164 


014170 
014176 


T20 


004837 
031016 
032716 


012737 


012737 


004737 
012777 
012777 
112746 
112766 
012677 
012777 


00Se77 
004737 
013741 


605037 
004737 


005737 
001074 
004737 


022737 
001401 


MACY11 27(657) 


0244708 
177374 
0031308 
000000 
000000 
165512 
0100008 


165506 
024524 
002046 


001774 
030706 


001774 


024170 
100000 


032736 


600001 
165510 


001704 


ISeAPRe7S 17:45 PAGE 44°81 
READ ECC ENABLED 18 


J8R RS, @eCRC 
CYL 
weRC 


960 TO CALCULATE CAC 


sTHIS IS TO INSERT ERROR 
pTHE DISK DATA IS IN LOCATION STARTING FROM °DISK? 
p THE oo ee OF THE ERROR CAN BE CHANGED BY CHANGING 


THIS MOVE 

MOV 0100000, 00DISKe2 SFORCE ERROR ON BIT NUMBER 32 
40 ERROR POSITION REGISTER WILL show 
92 

NOV 022,,0686 SINSERT POSITION REG, 


pTHESE ARE REGULAR SETUPS 
J8R PC, OOCLOISK pSETUP GENERAL REGISTERS 


NOV 9°256,°4,,ORHWC $256, DATA @ HEADER WORDS 

MOV @REINTO,ORHBA j;STARTING ADDRESS OF READ BUFFER 
MOVB 00, °(5P) 9I% LOWER BYTE GET SECTOR 

MOVB 00, 1¢SP) GET TRACK IN HIGHER BYTE 

MOV (SP)e, GRHDST J TRACK/SECTOR IN RHDST 

MOV OFMT22,ORHOF 946 BITS PER WORD 


pECC CORRECTION NOT INHIBIT 
pBECAUSE ECC 16 NOT GOING 
9T0 BE CHECKED 


CLR ORHCA sCYLINDER @ 


JSR PCe OSCHECKT SCHECK FOR DVA, ROY, NOL, DPR, ORY 
MOV @eREFOR, ORI DREAD HEADER AND DATAS72 

CUR OoERFLGs pCLEAR ERROR FLAG 

JSR PCe @OCOMHD ;READ HEADER AND DATA 


oUF THERE ARE READ ERRORS THEN 
yECC WILL NOT BE CHECKED 


IF THE PROGRAM COMES BACK HERE WITHOUT ERAOR PRINTOUTS 
pFROM THE "COMHD® ROUTINE THAT MEANS SECTOR GAP, 

pPIRST SYNC, HEADER, HEADER CRC, HEADER Gap AND 

pSYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 

ps DETECTED 

pHEADER AND DATA ARE TO BE CHECKED, 

p2N CHECKING READ DATA THE WRITE PRON SUFFER 

p°WRFROM® 18 FILLED WITH EXPECTED DATA AND 

pCOMPARIGONS ARE MADE 


T8t OCERFLGS 
BNE T6T2i 4 =9BRANCH IF YES 
JSR PC, COPUTREG pSAVE REGISTERS 


CMP @O0CK, OOERI pONLY DATA CHECK ERROR SHOULD BE SET 
BEQ 68 sBRANCH IF YES 


ANY ERRORS ALREADY THERE 


gt 





x» oe © 868 84 84 864 a4 ea 8s 6 a oo 8 64 oe oe oe 8 @4 64 





MAINDEC*141¢DERPTACA MACY14 27(657) {SeAPRe7S 17945 PAGE 44052 
DERPTA,Pil T20 READ ECC ENABLED 18 r 
6949 014200 104032 ERROR 32 932 BIT ECC REGISTER SHOULD BE NON 
6980 ) ZERO ‘ 
6951 pONLY 41 OF THE 32 BITS CAN BE SEEN 
6952 pIN THE PATERN REGISTER 
6983 gOCK SHOULD BE SET IN RHERY r 
6954 014202 013746 027126 68% MOV @0GECCi,°( SP) sGET PATTERN REGISTER 
6955 014206 042716 174080 Bic 0174000, (SP) pKEEP ONLY 14 BITS 
6956 014212 022637 005734 CNP (8P)o,00EC2 COMPARE PATTERN REGISTER « 
6957 014216 001401 BEQ 78 pBRANCH IF GOOD 
ose 014220 104032 ERROR 32 $14 BITS OF THE 32 BIT ECC REGISTER INCORRECT ; 
695 
® 696@ 014222 004037 027880 768 JSR RO, OCECORR 960 TO ECC CORRECTION PROCESS 
6961 014226 9090026 Bes 22, pEXPECTED POSITION REG, WHEN CORRECTION 
; 6962 928 COMPLETE « 
© 6963 
6964 
6965 A 
© 6966 014230 004737 024706 J8R PC, OOCHECKE sCHECK DVA,ORY,ROY,D 
6967 014234 0127080 002064 MOV @WRFROM, RO IGETTING READY 70 PauL EXPECTED DATA 
. 6968 014240 012728 18000 MOV OOLFNT22,(CRO)®  sCYLINDER © q 
e 6969 014244 112746 essece MOVB 3s 60» o(8P) 91M LOWER BYTE GET SECTOR 
6970 014250 112766 eseeee e00ce: MOVB 00. 1(6P) sGET TRACK IN HIGHER BYTE 
6971 014256 612620 MOV (8P)o, (RO)® GET TRACK/SECTOR IN SUFFER r 
. 6972 014260 012720 eeeeee MOV 80 (Re)e  ;KEYy IN BUFFER 
6973 014264 612720 seeeeee MOV 6a, (Ro)® 4 sKEY2 IN SUFFER 
6974 014270 012701 eee4e0 MOV 0286.5 Ri sDATA WORD COUNTER r 
6975 014274 012702 seeeee MOV 00, R2 pOATA 
6976 014300 916220 3e0 MOV A2e (RO)® sDATA INTO BUFFER 
6977 014302 605301 DEC Ri sCOUNT ( 
®@ 6978 014304 001378 BNE ye pBRANCH IF 256 NOT DONE 
6979 
6982 sONLY GOOD DATA HAS BEEN PUT IN °WRFRON? < 
u 6981 pNOW THE INSERTED ERROR WILL BE PUT IN 
6982 014306 012737 i1e80808 002076 MOV 0100000, 00WRFRONOCSO2> INSERTED ERROR 
6983 
e 6904 
69085 
6986 014314 005037 001774 CUR @cERFLGS pCLEAR ERROR FLAG < 
& 6987 014320 004737 024170 JER PC, OOPUTREG pGAVE REGISTERS 
6908 
6989 q 
€ sone pNOW READ DATA BUFFER WILL BE CHECKED 
6991 
6992 014324 0946037 025342 JSR RO, OOCOMPAR sCHECK é 
€ 6993 014330 002064 WRFROM 9G00D BUFFER 
6994 014332 003130 REINTO pTEet BUFFER 
6995 014334 6004604 40256, pNUMBER OF WORDS CHECKED 4 
é€ 6996 014336 014344 46 pRETURN POINT FOR ERROR HEADER 
$997 014340 0143580 58 pRETURN POINT FOR ERROR DATA : 
cs) 014342 014354 T8721 PRETURN FOR GOOD COMPARISON 
(1 
6999 014344 104004 agi ERROR 4 pREAD NEXT ERROR q 
€ 7008 014346 900207 RTS pc pRETURN TO "COMPAR® 
q 
) 
a CT ¢ 





MAINDEC*1 1 ¢DERPTACA 
DERPTA,Pii T2060 
7001 014350 104005 
7002 
7003 
7004 014352 000207 
7005 
7016 
7017 

(3) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(3) 

(2) @14354 900004 
7018 014356 612706 
7039 
702¢ 

C1) 014362 012737 

(1) 

7021 
7622 
7623 
7024 
7025 
7026 014370 012746 
7027 014374 012708 
7028 014400 012700 
7029 014404 611620 
7030 014406 905305 
7031 014410 001375 
7032 014412 005726 
7033 014414 022020 
7034 014416 612705 
7035 
7036 014422 005020 
7037 014424 908305 
7038 014426 901375 
7039 
70408 
7041 014430 004737 
7042 
7043 
7044 
7045 
7046 014434 0612737 
7047 014442 605037 
7048 014446 013737 
7049 014454 613737 
705@ 014462 0605037 
7051 014466 005037 


MACY11 27(657) 


000021 004174 


oeeces 
0004008 
032734 


000017 


027722 


177777 002012 
027140 
027134 027136 
027142 027150 
027126 
027130 


ISeAPRe7S 17945 PAGE 44°53 
READ ECC ENABLED 18 


ERROR 5§ pWORD NOS 3 TO 4 ARE 
pHEADER WORDS 
9S TO 26@ ARE DATA WORDS 
RTS pc pRETURN TO "COMPAR® 


peTEST 21 READ ECC ENABLED iC 

@ THIS 16 AN ECC READ DATA TEST 

36 ERROR CORRECTION I6 ENABLED 

$e A NOW CORRECTABLE ERROR 16 INSERTED IN BIT POSITION 235 THRU 32 
s@ GOOD DATA USED I8 3256 WORDS OF @ 

ye COMMAND 36 GIVEN FOR CYLINDER © FORMAT 16 BITS PER WORD 

hd TRACK 6, SECTOR © KEYS @ READ HEADER AND DATA 


TST2i8 SCOPE 


MOV eSTACK, SP sRESET STACK 
MOV OTTNO/QOTSTNN THIS SAVES TEST NUMBER 
' SETUP FOR WHAT 18 TO BE READ 
} HEADER CRC I6 RESTORED FROM A SUBROUTINE 
MoV Th °(8P) DATA T0 BE READ 
NOV 0256,» RS sCOUNTER 
MOV eDisk, Re sSTART OF SIMULATED DISK DATA 
168 NOV (87), (Ro)* MOVE ZN DATA OW TO SIMULATED DISK 
DEC RS sCOUNT 
BNE 18 SBRANCH IF 396 NOT COMPLETE 
Tat (SP)6 sUNDO ©(8P) 
CMP (RO)e, (RO)e ;JUMP OVER THE TWO ECC woRDS 
MOV $18e, RS #1 DATA GAP 
914 TOLERANCE GAP 
984 CLR (Rede sCLEAR DATA GAP, AND 
DEC RS pTOLERANCE GAP 
BNE a8 sBRANCH IF NOT COMPLETE 
Jar PC, OOF ILLEC pINSERT THE TWO ECC WORDS ON THE DISK 


IN THE CORRECT PLACE 


pTHESE ARE FOR ECC TEST ONLY 


MOV @°3,00TSECC pTHIS 38 AN ECC TEST 

CUR OePposITz sCLEAR ERROR POSITION COUNTER 

MoV OONCODE, BONCOUNT STEMPORARY NeCODE COUNTER 

MoV OOHARDER, OOHADTHP pTEMPORARY HARD ERROR COUNTER 
CLR @eGECCi ECC LOW ORDER TO BE GENERATED 

CLR @eGecc2 ECC HIGH ORDER TO BE GENERATED 


pl 





%®° @ @& 08 060000000 000 0600606000 e0e 860 @4 


@ @ @ @ @ 





7082 
7083 
7084 
7085 
7056 
7087 
7058 
7089 
7060 
7061 
7062 
7063 
7064 
7065 
7066 
7067 
7068 
7069 
7078 
7071 
7072 
7073 
7074 
7075 
7076 
7077 
7078 
7079 
7060 
7081 
7062 
7083 
7084 
7085 
7086 
7067 
7066 
7089 
76908 
7091 
7092 
7093 
7094 
7095 
71096 
7097 
7098 
7099 
7100 
7101 
7102 
7103 
7104 
7105 


014472 
014476 


014510 
014516 
014524 
014532 
014540 
014546 
014552 
014556 
014560 


014562 


014570 


014576 
014602 
014610 
014616 
014622 
014630 
014634 


014642 
014646 
014652 


014656 
014662 


MAINDEC #11 eDERPTASA 
DERPTA,Pi1 


005037 
005037 


012737 


412737 
112737 
012737 
012737 
012737 
005037 
004537 
031016 
032716 


012737 


012737 


004737 
012777 
012777 
112746 
112766 
012677 
012777 


003077 
004737 
013711 


005037 
004737 


MACY33 27(657) 


027144 
027146 


608800 
000000 
000088 
e00ese 
000400 
031626 
025646 


1777608 


010040 


024470 
177374 
063130 
000000 
000000 
165002 
010000 


164776 
024524 
002046 


001774 
030706 


033224 
031076 


032736 


014736 


165014 
165010 


ISeAPRe7S 17345 PAGE 44054 
READ ECC ENABLED iC 


CUR OeDATENYV 
CLR Oe ZCODE 


sCLEAR DATA ENVELOPE CLOCK COUNT 
sCLEAR LEADING ZEROS CLOCK COUNT 


pTHESE ARE TO SETUP FOR DISKLESS USE ONLY 


MOV OFMT22,06CYL 16 BITS PER WORD 
pCYLINDER 6, FORMAT 16 BITS 
MOVB 60, OCBECOTRe’ PTRACK O 
MOVB 60, OeSECOTR FSECTOR © 
MOV 60, OOKEY) sKEYi00 
MOV 00, OOKEY2 sKEY206 
MOV 0256.2 G@DAWORD ;NO, OF DATA WORDS 
CLR ex sTHIS IS A READ COMMAND 
RS, @eCRC 960 70 CALCULATE Cac 
Y 
werc 


pTHIS 38 TO INSERT ERROR 
pTHE DISK DATA 16 IN LOCATION STARTING FROM °DISK* 
pTHE POSITION OF THE ERROR CAN BE CHANGED BY CHANGING 


pTHIS MOVE 

MOV 6177760, 00018Ke2 pFORCE ERROR OW BIT NUMBER 23 THRU 32 
- ERROR POSITION REGISTER WILL SHOW 
’ 

MOV 04126,,0008 SINSERT POSITION REG, 


pTHESE ARE ROSULAR SETUPS 

JSR PC, OOCLOISK sSETUP GENERAL REGISTERS 

MOV €°256,°4,,ORHWC 3256, DATA 4 HEADER WORDS 

MOV @REINTO,ORHBA sSTARTING ADDRESS OF READ BUFFER 


MOVE TD °(8P) IN LOWER BYTE GET SECTOR 
MOVB 00. 1(8P) sGET TRACK IN HIGHER BYTE 
MOV (SP)o, ORHDST j;TRACK/SECTOR IN RHDOST 
MOV OFMT22,ORHOF 916 BITS PER WORD 


pECC CORRECTION NOT INHIBIT 
sBECAUSE ECC 38 NOT GOING 
9TO0 BE CHECKED 


CUR ORHCA sCYLINDER @ 

JSR PC. GOCHECKT sCHECK FOR DVA,ROY,MOL,DPR,ORY 
MOV OOREFOR, ORI #READ HEADER AND DATAS72 

CLR OoERFLGS pCLEAR ERROR FLAG 


JSR Ce @eCOMHD ;READ HEADER AND DATA 
IF THERE ARE READ ERRORS THEN 
sECC WILL NOT BE CHECKED 


gIF THE PROGRAM COMES BACK HERE wITHOUT ERROR PRINTOUTS 
pFROM THE *"COMHD® ROUTINE THAT MEANS SECTOR GAP, 
sFIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 


m™ 
a 
® @ee6@ee@ee@eeeeeeeeeee?ee?eeeeée ee 
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MAINDECe11°DERPTASA 
DERPTA,Pii 


7106 
7107 
7106 
7109 
7110 
7iii 
7112 
7113 
7114 

(1) 

(1) 
7115 
7116 
7417 
7138 
7119 
7120 
7121 
7122 
7123 
7124 
7125 
7126 
7127 
7128 
7129 
7130 
7131 
7132 
7133 
7134 
7135 
7136 
7137 
7138 
71439 
7140 
7141 
7142 
7143 
7144 
7145 
7146 
7147 
7148 
7149 
7150 
7481 
7182 
7153 
7154 
7155 
7156 
7157 


014666 
014672 


014674 
014700 
014706 
014710 


014712 
014716 
014722 
014726 
014730 


014732 
014736 


014740 
014744 


014752 
014754 


014756 
014762 
014766 
014772 
014776 
015004 
015006 
015012 
015016 
015022 
015026 
015030 
015032 


T21 


003737 
001103 


004737 
022737 
001401 
104032 


013746 
042716 
022637 
001401 
104032 


004037 
0000008 


004737 
022737 


001401 
104036 


004737 
0127008 
0127208 
112746 
112766 
012620 
012720 
0127208 
012701 
012702 
010220 
005301 
001375 


MACY11 27(657) 
READ ECC ENABLED iC 


001774 


024170 
100000 


027126 
174000 
001734 


027580 


0241708 
1001080 


024706 
@82064 
610000 
000000 
00000 


000800 
000000 
000400 
000000 


001704 


001704 


ISeAPRe7§ 


788 
Gas 


17845 PAGE 44°55 


9SYNC BYTE HAVE GONE By AND SYNCS WERE CORRECTLY 
pDETECTED 
pHEADER AND DATA ARE TO BE CHECKED, 

pIN CHECKING READ DATA THE WRITE FROM BUFFER 
p"WRFROM® I8 FILLED WITH EXPECTED DATA AND 
pCOMPARIGONS ARE MADE 


T8sT 
BNE 


JSR 
cmp 
BEQ 
ERROR 


MOV 
BIC 
CMP 
BEG 
ERROR 


JSR 
»WORD 


JSR 
CMP 


JSR 
MOV 
MOV 
MOVB 
MOVB 
MOV 
MOV 
MOV 
MOV 
MOV 
MoV 
DEC 
BNE 


OCERFLGS 
T6T22 =) BRANCH 


PC, OOPUTREG 
6OCK, OOERi 
66 

32 


@8GECC1,°¢( SP) 
0174000, (SP) 
+ ae ata 


PCe OOPUTREG 
ODCKIECH, OOER, 


PC. OOCHECKE 
OWRFROM, RO 
OolFUT22, (Rede 
02, @(SP) 
O86 i (sp) 


ANY ERRORS ALREADY THERE 
IF yes 


pSAVE REGISTERS 

sONLY DATA CHECK ERROR SHOULD BE SET 
pBRANCH IF YES 

4: By ECC REGISTER SHOULD BE NON 

; 

ONLY 33 OF THE 32 BITS CAN BE SEEN 
IN THE PATERN REGISTER 

pOCK SHOULD BE SET IN RHERY 

sGET PATTERN REGISTER 

pKEEP ONLY 43 BITS 

SCOMPARE PATTERN REGISTER 

sBRANCH ZF GOOD 

913 BIT6 OF THE 32 BIT ECC REGISTER INCORRECT 


9GO0 TO ECC CORRECTION PROCESS 
pEXPECTED POSITION REG, WHEN CORRECTION 
938 COMPLETE 


SSAVE REGISTERS 

WITH ERRORS INSERTED IN BIT POSITION 24 
sTHRU 32 HARD ERROR BIT SHOULD SET 

sBRANCH IF GOOD 

pWITH ERROR INSERTED IN BIT POSITION 24 THRU 
932 ECH SHOULD SET 


SCHECK DVA,DRy, ROY, OPR 
pGETTING READY TO FILL EXPECTED DATA 
sCYLINDER @ 

pt LOWER BYTE GET SECTOR 
sGET TRACK IN HIGHER BYTE 
9GET TRACK/SECTOR In BUFFER 
pKEYy IN BUFFER 

pKEY2 IN BUFFER 

pDATA WORD COUNTER 

pDATA 

pOATA INTO BUFFER 

sCOUNT 

sBRANCH IF 256 NOT DONE 


3 





5 @& 6 0608060060080 060 00606006080 0606008404 060é6(64806e46CmCUCOlCDD 


MAINDECe11eDERPTASA 
DERPTA,Pi1 


7158 
7189 
7160 
7161 
7162 
7163 
7164 
7165 
7166 
7167 
7168 
7169 
7170 
7173 
7172 
7173 
7174 
7175 
7176 

(1) 

¢1) 
7177 
7178 
7179 
71860 
7181 
7182 
7163 
7164 
7165 
7186 
7167 
7168 
7197 
7198 

(3) 

(4) 

(4) 


015034 


015042 
015046 


018052 
015086 
015060 
015062 
015064 
015066 


015070 


015072 
015074 
015076 


015102 
015104 


015110 


015116 
015122 
015126 
015130 
015132 


T21 


012737 


005037 
004737 


004037 
002064 
003130 
000404 
015072 
015076 


015102 


104004 
000207 
104005 


000207 


000004 
012706 


012737 


012760 
012701 
005620 
605301 
001375 


MACY11 27(657) {SeAPR°75 171545 PAGE 44056 
READ ECC ENABLED iC 


pONLY GOOD DATA HAS BEEN PUT IN °WRFROM? 
pNOW THE INSERTED ERROR WILL BE PUT IN 


177768 002076 MOV 0177760, 00WRFROM¢<Se2> INSERTED ERROR 
001774 CUR OsERFLGS pCLEAR ERROR FLAG 
024170 JSR PC, OOPUTREG pGAVE REGISTERS 


pNOwW READ DATA BUFFER wILL BE CHECKED 


025342 JSR RO, OOCOMPAR sCHECK 
WRFROM 9G00D0 BUFFER 
REINTO pTEST SUFFER 
40256, sNUMBER OF WORDS CHECKED 
46 PRETURN POINT FOR ERROR HEADER 
58 PRETURN POINT FOR ERROR DATA 
T8T22 SRETURN FOR GOOD COMPARISON 
4oi ERROR 4 pREAD WEXT ERROR 
RTS pc pRETURN TO "COMPAR® 
See ERROR § pWORD NOS § TO 4 ARE 


sHEADER WORDS 
9S TO 260 ARE DATA WORDS 
RTS pc sRETURN TO "COMPAR® 


p@TEST 22 WRITE ECC TEST 2 

0 THIS 18 A WRITE ECC TEST 

1° WRITE CYLINDER @, FORMAT 16 BITS PER WORD 

1° TRACK @, SECTOR 1, KEYS ©, NUMBER OF WORDS 256 
@ OF ALL ONES, 


DL dedebedabbbdbdbeb dd bhi dhdb it i dict i iit rie tet Tei) 
T8T22% SCOPE 


001000 . MOV OSTACK, SP sRESET STACK 
000022 604174 MOV OTTNO,OCTSTNM  sTHIS SAVES TEST NUMBER 
032636 MOV OSECGAP, RO POINTER 
000460 MOV 0304,,Ri sCOUNTER 
iss CLR (RO)¢ sCLEAR SIMULATED DISK AREA 
DEC Ri 
BNE is 





®» @ 6©& @ 06 060 06 60 064 060 6 a4 060 6 060 060 060 060000 84 


MAINDECe1 1 ¢DERPTASA 
DERPTA,Pil 


7207 
7208 
7209 
7210 
7211 
7212 
7213 
7214 
7215 
7216 
7217 
7218 
7219 
7220 
7221 
7222 
7223 
7224 
7225 
7226 
7227 
7228 
7229 
7230 
7231 
7232 
7233 
7234 
7235 
7236 
7237 
7238 
7239 
7240 
7241 
7242 
7243 
7244 
7245 
7246 
7247 
7248 
7249 
7250 
7251 
7282 

(1) 

(1) 

(1) 
7253 
7254 
7255 
7256 
7257 


015134 


015140 
015146 
015152 
015160 
015166 
015172 
015176 
015202 


015214 
015222 
015226 
015232 
015240 
015244 
015246 


015250 
015256 
015262 


015266 


015272 
015276 
015300 
015302 
015306 
015312 
015314 
015316 


015330 


015334 
015340 


722 
004767 


012737 
005037 
013737 
013737 
005037 
005037 
605037 
005037 


012737 


012737 
008037 
005037 
012737 
004537 
034122 
034132 


012777 
012700 
010077 


012720 


012720 
005020 
005020 
012708 
012720 
605305 
001374 
012777 


004767 


013711 


005037 
012777 





MACY11 27(687) 
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007330 JSR PC, CLOISK pTHIS 38 USED TO SET GENERAL REGISTERS 
sTHESE ARE FOR ECC TEST ONLY 
177777 602012 MOV @°1,0e8TSECC sTHIS 38 AN ECC TEST 
027140 CLR Gepositiz pCLEAR ERROR POSITION COUNTER 
@27134 027136 MOV OONCODE, OONCOUNT pTEMPORARY NeCODE COUNTER 
027142 027150 MOV @eHARDER, @OHADTMP PTEMPORARY HARD ERROR COUNTER 
027126 CLR @eGECCi sECC LOW ORDER TO BE GENERATED 
027130 CLR @eGECC2 sECC HIGH ORDER TO BE GENERATED 
027144 CLR OeDATENV CLEAR DATA ENVELOPE CLOCK COUNT 
027146 CLR @eZCODE sCLEAR LEADING ZEROS CLOCK COUNT 
THESE ARE TO BE SETUP FOR DISKLESS USE ONLY 
0180000 0634122 MOV OFMT22,00wCYL SFORMAT2Z2816BIT wORDS AND 
sCYLINDER 6 
000001 034124 MOV @1,0eWSECTR sTRACKeQ, SECTORS: 
034126 CLR OOwKEY) sKEYis@ 
034130 CLR @OWwKEY2 pKEY2e0 
000480 0634162 MOV @€256,,@00FNWORD 3256 DATA WORDS 
025646 JER RS, @ecReE 960 TO CALCULATE Cac 
weYL 
Gcrac 
gTHESE ARE REGULAR SETUPS 
177374 164346 MOV 6°260,,@RHWC 9286 DATA WORDS 4 HEADER WORDS 
002064 MOV @WRFROM, RO pTHESE TWO INSTRUCTIONS GETS 
164340 MOV Ro, ORHBA pADDOR, OF WRFROM INTO Re AND 
98U8S ADORESS REGISTER 
010000 MOV OFMT22, (RO) SPORMAT@46 BIT WORDS 
sCYLINDERSE 
000001 28% MOV @1eCREde pTRACKs@, SECTORS:, KEYSeg 
CUR CRO)¢ pKEYie9 
CLR CRE) pKEY20@ 
0800480 MOV 0256,,R8 sCOUNTER 
177777 363 MOV @°4,(RO)¢ sMOVE ALL ONES FOR DATA 
DEC RS 
BNE 38 sBRANCH ZF DATA NOT COMPLETE 
900001 164312 MOV @1-@RHDST sTRACKs@ SECTORG, 
007174 JSR PC,CHECKT pCHECK DVA, RDY, DPR, ORY 
002042 MoV OeWRIFOR, ORI sGET READY FOR WRITE HEADER AND 
sDATA WITH 62 IN RNCSi 
001774 CUR @sERFLGS sCLEAR ERROR FLAG 
010000 164274 MOV OFMT22,ORHOF SFORMAT BITe, (36 BIT WORDS) 


— 


»9ae®eeeeeeeeee ee © © 6 C6 C6 6 ee @ @!} 


MAINDEC e111 eDERPTACA 
DERPTA,Pil 


7258 
7259 
7260 
7261 
7262 
7263 
7264 
7265 
7266 
7267 
7268 
7269 

(1) 

(4) 
7278 
7271 
7272 
7273 
7274 
7275 
7276 
7277 
7278 
7279 
7280 
7261 
72862 
7263 
7284 
7265 
7286 
7207 
7268 
72869 
7290 
7291 
7292 
7293 
7294 
7295 
7296 
7297 
7298 
7299 
7300 
7301 
7302 
7303 
7304 
7305 
7306 
7307 
7308 
7309 


015346 
018352 


015364 
015372 
015374 
015376 
015400 
015406 
915410 


015412 


015416 
015422 
015424 
015426 


015430 
015436 
015444 
015450 
015452 
015454 


015456 


015462 
015466 
015470 
015472 
015474 


722 


008077 
004737 


005737 


021083 


023737 
001462 
104031 
000405 
623737 
001401 
104031 


004737 


004037 
0031308 
004126 
177777 


013737 
013737 
004037 
004134 
004170 
006000 


003037 


004037 
003130 
032734 
000402 
015502 


MACY31 27(687) 


WRITE ECC TEST 2 


164272 
033776 


001774 


027126 


027130 


024706 


024406 


027126 
027130 
024406 


001774 


033734 


033736 


004130 
004132 


ISeAPRe75 17745 PAGE 44°58 


CLR ORHCA sCYLINDER @@ 
JSR PC @eCOMWHD sWRITE HEADER AND DATA 


IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
FROM THE "COMWHD® ROUTINE THAT MEANS ALL HEADER OW DISK 
918 GOOD IE, ONLY DATA 36 TO BE CHECKED TO SEE If THEY ARE 
ALL ONES AND WRITE DATA GAP AND TOLERANCE GAP TO SEE IF 
pTHEY ARE ALL ZEROS 
T8T OeERFLGS pHAS ANY ERRORS OCCURED? 

If WRITE ERROR OCCURS ECC 18 NOT CHECKED 


BNE TST23) «= p BRANCH IF YES 


sCOMPARE SOFTWARE GENERATED ECC WITH THAT GENERATED BY HARDWARE 


768 


CMP @OGECC1, OeWECCI COMPARE SOFTWARE ECC WITH HARDWARE ECC 


BEQ 66 pBRANCH IF GOOD 

ERROR 31 pLOW ORDER ECC IN ERROR 

BR 78 pBRANCH TO CONTINUE 

cmp OsGECCa, OeWECC/CONPARE SOFTWARE ECC WITH HARDWARE ECC 
BEQ sBRANCH IF GOOD 

ERROR i SHIGH ORDER ECC IN ERROR 

JSR PC, OOCHECKE SCHECK DVA,ROYs ORY, DPR 


SFILL *REINTO"® BUFFER WITH EXPECTED DATA 
JSR RO, COCLAREA sFILL REINTO BUFFER 
REINTO sFPROM 
REINTOC<355 ,¢2> 9TO 
eWORD ey sDATA 


MoV OOGECCI, SOREINTOSC<3S6,O2>;9FILL ECCI 
MOV OOGECC2, OCREINTOSC<2S7,O2>;9FILL ECC2 


JSR RO, OOCLAREA sFILL REST 
REINTO*<256 02> FROM 
REINTO0¢€272,02> 970 

8 pDATA 


CLR OeERFLGS sCLEAR ERROR FLAG 


sNOW COMPARE "DISK" BUFFER WITH *REINTO® 


JSR RO, COCOMPAR pCHECK 

REINTO 9G00D BUFFER 

DIsK pTESt BUFFER 

258, gNUMBER OF WORDS CHECKED 

ou pRETURN POINT FOR ERROR HEADER 


A 
ah 








MAINDEC*11¢DERPTASA 


DERPTA,P1ii 
731@ 015476 
(1) 615500 


7312 015502 
7313 015504 
7314 015506 


7322 015510 


(2) 015512 
7340 015514 


(1) 015520 


7348 015526 
7349 0615532 
7388 015536 
7351 015542 
7352 015544 
7353 015546 
7354 615550 
7355 015552 
7356 015554 


7358 015560 


Disasters aia itttac tac siete at atten te sic 


T22 
015506 
015512 


104007 
000207 
104010 


000207 


000004 
012706 


012737 


012746 


MACY11 27(657) 


WRITE ECC TEST 2 


1779779 
000400 
032734 


000017 


004174 


ISeAPRe7S 17545 PAGE 44°89 


Se SRETURN POINT FOR ERROR DATA 
TSsT23 sRETURN FOR GOOD COMPARISON 
4% ERROR 7 pREAD ERROR 10 NEXT 
RTS ec PRETURN TO COMPARE 
58s ERROR 180 pWORD NOS 4 TO 256 ARE 
pOATA WORDS 
pWORD HOS 257 AND 258 
pARE ECC WHICH ARE CHECKED 
sWORD NOS 259 
938 DATA GAP 
sWORD NOS 260 TO 273 
pARE TOLERANCE GAP 
RTS pc pRETURN TO COMPARE 
$ 0000800000 0000000000050000900000000000000000000000 0000000000008 
peTEST 23 READ ECC ENABLED 2A 
hd THIS 18 AN ECC READ DATA TEST 
ia ERROR CORRECTION I6 ENABLED 
$2 NO ERROR 26 INSERTED 
1% GOOD DATA USED 38 286 WORDS OF 177777 
ae COMMAND 26 GIVEN FOR CYLINDER @ FORMAT 16 BITS PER WORD 
hed TRACK 6, SECTOR @ KEYS @© READ HEADER AND DATA 


T6T238 SCOPE 
MOV OSTACK, SP pRESET STACK 


MoV OTTNO,OOTSTNM  PTHIG SAVES TEST NUMBER 


4 SETUP FOR WHAT 38 TO BE READ 
Hl HEADER CRC 26 RESTORED FROM A SUBROUTINE 
MoV el, °(SP) DATA TO BE READ 
MOV 6256,, RS sCOUNTER 
MOV ODISK, Re sSTART OF SIMULATED DISK DATA 
16s MOV CSP), (RO)® sMOVE IN DATA OW TO SIMULATED DISK 
DEC aS COUNT 
BNE is pBRANCH IF 256 NOT COMPLETE 
T8T (SP)¢ pUNDO ©(8P) 
CMP CRO)¢, (RODS sJUMP OVER THE TWO ECC WORDS 
MOV 015.0 RS $4 DATA GAP 


914 TOLERANCE GAP 


26s CUR (RO)¢ sCLEAR DATA GAP, AND 


~yHa a ja a a a aawsi ss a fa a 64g a.  GaeemdLCmwQRedUdCM A&hlC H!h—hCOFhCéCOA 


ae eoeeseeseseeeese85eeeeeeeeeeseee ee 


MAINDEC1 1 eDERPTACA 
DERPTA,Pii 


73589 
7360 
7361 
7362 
7363 
7364 


015872 
015600 
015604 
015612 
015620 
015624 
015630 
015634 


015640 


015646 
015654 
015662 
015670 
015676 
015704 
015710 
015714 
015716 


015720 
015724 
015732 
0157406 
015744 
018782 
015756 


015764 
015778 
015774 


016000 
016004 


723 


005305 
661378 


004737 


012737 
006037 
013737 
013737 
008037 
005037 
008037 
005037 


012737 


412737 
4112737 
012737 
012737 
012737 
005037 
004537 
031016 
032716 


004737 
012777 
012777 
112746 
112766 
012677 
612777 


005077 
004737 
013711 


008037 
004737 


MACY11 27(657) 


027722 


477777 
027140 
027134 
027142 
027126 
027138 
027144 
027346 


024470 


163654 
024524 
002046 


001774 
030706 


027136 
027180 


031021 
031020 
031022 
031024 
031076 


163672 
163666 


ISeAPRe7S 171345 PAGE 44°60 
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DEC RS pTOLERANCE GAP 
BNE 28 pBRANCH IF NOT COMPLETE 
JER PC, OOFILLEC SINSERT THE TWO ECC WORDS ON THE DISK 


pIN THE CORRECT PLACE 
pTHESE ARE FOR ECC TEST ONLY 


NOV 6°1,60TSECC pTHIS 38 AN ECC TEST 

CLR OoPOSITI pCLEAR ERROR POSITION COUNTER 

MoV OONCODE, OONCOUNT pTEMPORARY NeCODE COUNTER 

MOV OOHARDER, OOHADTMP STEMPORARY HARD ERROR COUNTER 


CLR OeGECCi 
CUR OeGECC2 
CLR OODATENYV 
CLR OeZCODE 


pECC LOW ORDER TO BE GENERATED 
sECC HIGH ORDER TO BE GENERATED 
SCLEAR DATA ENVELOPE CLOCK COUNT 
sCLEAR LEADING BEROS CLOCK COUNT 


THESE ARE TO SETUP FOR DISKLESS USE ONLY 


MOV OFHT22,00CYL 816 BITS PER WORD 
pCYLINDER 6, FORMAT 16 BITS 
MOVB iT OOSECOTRe, sTRACK @ 
MOVB TT OOSECOTR SECTOR © 
woV Ge OOKEY, sKEYie@ 
MoV OB. OOKEY2  ;KEY2e@ 


MOV 6256.2 G@DAWORD ,HO, OF DATA WORDS 
Gax sTHI6 18 A READ COMMAND 
JSR RS, OeCRC 960 TO CALCULATE CAC 


pTHESE ARE REGULAR SETUPS 

JSR PC, OOCLOISK sSETUP GENERAL REGISTERS 

MOV 0°256,°4,,ORHWC 3256, DATA 4 HEADER WORDS 

MoV @REINTO,ORHBA ;STARTING ADDRESS OF READ BUFFER 

MOVB ea, (SP) ji" LOWER BYTE GET SECTOR 

MOV Oo $CSP) sGET TRACK IN HIGHER BYTE 

MOV (6P)¢, ORHDST );TRACK/SECTOR IN RHDST 

MOV OFHT22,ORUOF 936 BITS PER WORD 
pECC CORRECTION NOT INHIBIT 
pBECAUSE ECC I6 NOT GOING 


970 BE CHECKED 
CLR ORHCA sCYLINDER @ 
JSR PCe OSCHECKT sCHECK FOR DVA,RDY, MOL, DPR, DRY 
MOV OOREFOR, ORI SREAD HEADER AND DATAS72 
CUR OoERFLGs CLEAR ERROR FLAG 


’ 
JSR eC, @eCOMHD ;READ HEADER AND DATA 


Z 





x» fa2.hlhUemltC<“ HCC HKHlCKHlCDUlCDlCDWllC lO DlC HHemlCDlCO KC DHltiC “HTC HCC liC “SHTDCiaKHlt—CO li SN 


e9eeeeeeeee5vev56§eeeeeeeesde ese ee! 


MAINDEC*11¢DERPTACA 
DERPTA,Pii 


016010 
016014 


016016 
816022 
016026 
016030 


016032 
016036 
016042 
016046 
016050 


016052 
016056 
016064 
616072 
016074 
016076 
016102 
016106 
016112 
016116 
016124 
016126 
016332 
016136 
016142 
016146 
016150 


T23 


008737 
601077 
004737 
005737 


001401 
104032 


013746 


012700 
052777 
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0017746 


024178 
001704 


027126 
174000 
004734 


8246706 
GO2064 
010000 


680000 
900080 
@o8408 
477979 


ISeAPROTS 
READ ECC ENABLED 2A 


768 
was 


17348 PAGE 44°61 


IF THERE ARE READ ERRORS THEN 
sECC WEILL NOT BE CHECKED 


If THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
pFROM THE "COMHD® ROUTINE THAT MEANS SECTOR GAP, 

FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 

p6YNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 
pDETECTED 
pHEADER AND DATA ARE TO BE CHECKED, 

gIN CHECKING READ DATA THE WRITE PROM BUFFER 
p°WRFROM® 16 FILLED WITH EXPECTED DATA AND 
pCOMPARTSONS ARE MADE 


Gay 


OCERFLGS 


pAWY ERRORS ALREADY THERE 


T6T24 04=— pBRANCH IF YES 


OOGECC3,¢( OP) 
0174900, (SP) 
sar eneenene 

$8 


sSAVE REGISTERS 

NO ERRORS SHOULD BE SET 

pBRANCH IF HO ERRORS SET 

932 BIT ECC REGISTER SHOULD BE ZERO 
pONLY 34 OF THE 32 BITS CAN BE SEEN 
930 THE PATEAN a keh 

pOCK SHOULD BE GET IN RHER, 

1GET DATTERN REGISTER 

RESP ONLY 34 BITS 

pCOMPARE PATTERN REGISTER 

SBRANCH IF GOOD 


643 BITS OF THE 32 BET ECC REGISTER rHCORRECT 


pADD 16 MAINTENANCE CLOCKS TO 
pBRING EBL DOWN 


016.,,R0 
GMCLK, ORHMR 
gees 


ae 

PC, OOCHECKE 
OWRFROM, RO 
OOLFNT22, (ROO 
td] 


pBRANCH ZF 36 CLOCKS NOT DONE 

sCHECK DVA,DRY,RDY,OPR 

sGETTING READY TO FILL EXPECTED DATA 
ICYLIMDER O 

otN LOWER BYTE GET SECTOR 

9GET TRACK IN HIGHER BYTE 

pGET TRACK/SECTOR IH BUFFER 

pKEY, 238 SUFFER 

pKETQ IN BUFTER 

poe WORD COUNTER 


pOATA 
sDATA INTO BUFFER 
sCOUNT 


~ r ~~ a an pm, (om ~~, o -~ an Ee Cnt oo ~ 





MAINDEC 1 1 eDERPTASA MACY31 27(687) 
DERPTA,Pii 


7465 
7466 


SSP eer eevee ese er er eervre ero ervtu’ se’ sete - Ves Vi 
= 
© 


; 





001375 


016154 “805037 001774 


016164 
016170 
016172 
016174 
016176 
016200 


016206 
0162106 


016214 
016216 


016222 


004737 624170 


004037 025342 
602064 
003130 
000404 
016204 
016210 


104004 
000207 
104008 


000207 aS 


000004 
012706 001000 


012737 000024 604174 


012746 497977 


ISeAPRe7S 17545 PAGE 44°62 
T23 READ ECC ENABLED 2A 


BNE ba SBRANCH IF 256 NOT DONE 
CLR OeERFLGS pCLEAR ERROR FLAG 
JSR PC, OOPUTREG SGAVE REGISTERS 
gNOW READ DATA BUFFER WILL BE CHECKED 
JSR RO, COCOMPAR sCHECK 
WRFROM 96000 BUFFER 
REINTO pTEST BUFFER 
40256, SNUMBER OF WORDS CHECKED 
46 pRETURN POINT FOR ERROR HEADER 
56 SRETURN POINT FOR ERROR DATA 
T8724 PRETURN FOR GOOD COMPARISON 
ERROR 4 READ NEXT ERROR 
RTS Pc pRETURN TO °COMPAR® 
ERROR § pWORD NOS 4 i. 4 ARE 

pHEADER WORD 

98 20 260 ARE DATA WORDS 
RTS pc pRETURN TO °COMPAR® 


PSOSSOSSHSSSHHHESHSHCSSSHHSHHSOHHHSHPHHHSEHHHSHHOHEHHHHHOHCHSCOOS 


p@TEST 24 READ ECC ENABLED 23 

hed THIS 38 AN ECC READ DATA TEST 

se ERROR CORRECTION 16 ENASLED 

1s A CORRECTABLE ERROR 16 INGERTED IN BIT POSITION 32 

1e GOOD DATA USED I8 286 WORDS OF 477777 

44 COMMAND 28 GIVEN FOR CYLINDER @ FORMAT 16 BITS PER WORD 
s@ TRACK @, SECTOR @ KEYS @ READ HEADER AND DATA 


T8T241 


SCOPE 
mov @STACK, SP PRESET STACK 


MOV OTTNO,OOTSTNM PTHIS SAVES TEST NUMBER 


SETUP FOR WHAT 38 TO BE READ 
HEADER CRC 16 RESTORED FROM A SUBROUTINE 


MoV Ot, °(6P) #sDATA TO BE READ 


> 
te 
| 


9eedeoeeeee#se8e§_ee#eeeeeeeeeee ee 





e © 
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e DERPTA,P11 124 READ ECC ENABLED 28 a) 

7514 016234 012705 eec4ee MOV 0256,, RS COUNTER 

7515 @16240 012700 @32734 MOV SDISK, RO START OF SIMULATED DISK DATA S 
€ 7516 016244 011620 iss MOV (SP), (R@)*  sMOVE IN DATA ON TO SIMULATED DISK 

7517 016246 005305 DEC RS sCOUNT 

75818 0616250 601375 BNE 18 pBRANCH IF 256 NOT COMPLETE @ 
& 7819 016252 005726 TST (8%)¢ UNDO ©( SP) 

7820 016254 022020 CMP (R0)o,(RO)¢ sUUMP OVER THE TWO ECC WORDS 

7521 016256 012705 00017 MOV 015s, RS 91 DATA GAP a) 
é& 7822 914 TOLERANCE Gap 

7523 016262 605020 28s CLR (Re)¢ CLEAR DATA GAP, ANDO 

7524 016264 005305 DEC BS pTOLERANCE GAP S 
€ 7525 016266 001375 BNE 28 BRANCH IF NOT COMPLETE 

7526 

7827 8 
& 7528 016270 004737 27722 8x PC, @OFILLEC pINSERT ECC IN PROPER PLACE ON DISK 

7529 

7530 @ 
€ 7531 

7933 #THESE ARE FOR ECC TEST ONLY e 

533 
€ 7534 016274 012737 477777 «2902012 MoV @°1,@eTSECC pTHIS 286 AN ECC TEST 

7535 016302 005037 027140 CLR @epositz pCLEAR ERROR POSITION COUNTER 

7536 016306 013737 627134 027136 MOV @ONCODE, OONCOUNT pTEMPORARY NeCODE COUNTER e 
€ 7537 @©16314 013737 ©27142 02715¢@ MOV @eHARDER, OOHADTMP #TEMPORARY HARD ERROR COUNTER 

7838 016322 005037 027126 CLR @eGEcci ECC LOW ORDER TO BE GENERATED 

7539 016326 905037 027130 CLR @eGECC2 pECC HIGH ORDER TO BE GENERATED & 
tag 7540 016332 005037 0627144 CLR @eDATENV CLEAR DATA ENVELOPE CLOCK COUNT 

7541 016336 905037 027146 CLR @e2ZCODE CLEAR LEADING ZEROS CLOCK COUNT 

7542 ™ 
@ 7543 

yee #THESE ARE TO SETUP FOR DISKLESS USE ONLY e 

545 
i>) 7846 @16342 012737 @10000 031016 MOV OFMT22,00CYL 916 BITS PER WORD 

7547 pCYLINDER @, FORMAT 46 BITS 

7548 016350 4112737 ee0000 631021 MOVB Th @OSECOTRe, pTRACK @ @ 
@ 7549 016356 112737 @e0008 631026 MOVB Th GeSECOTR SECTOR @ 

7550 016364 012737 ee9e08 031022 MOV 00. OOKEY, sKEYie@ 

7551 016372 012737 egeeee 031024 MOV Th OOKEY2 );KEY209 e 
G 7552 016408 012737 @60400 031076 MOV 0256.» @@DAWORD »NO, OF DATA WORDS 

7553 016406 008037 031026 CLR oex pTHIg Ig A READ COMMAND ® 

7554 016412 604537 025646 Jar RS, @eCRC 9G0 TO CALCULATE CRC oS 
ie) 7555 0164616 931016 CYL 

sees 016420 632736 WRC 

Be 
& 7558 e 

7559 pTHIS 28 TO INSERT ERROR 

7560 pTHE DISK DATA I8 IN LOCATION STARTING FROM *DISK® @ 
& 7561 pTHE POSITION OF THE ERROR CAN BE CHANGED BY CHANGING 

7562 pTHIS MOVE 

7563 016422 012737 77777 @32736 MOV 077777,@0DISKe2 sFORCE ERROR ON BIT NUMBER 32 
® 7566 . pee ERROR POSITION REGISTER WILL SHOW 

922 
e pees 016430 012737 @00026 016576 MOV 022,,0086 INSERT POSITION REG, Pe 
e| e 
| A& 









7568 
7569 
7578 
7871 
7872 
7873 
7574 
7875 
7876 
7877 
7578 


caeeeeeeveeeee 0 © © © © @ © @ @ @ 


016436 
016442 
016450 
016456 
016462 
016470 
016474 


016512 
016816 
016822 


016526 
016532 


016534 
016540 
016546 
016550 


016552 
016586 
016862 
016566 
016570 


016872 
016576 


MAINDEC*11¢DERPTASA 
DERPTA,Pii 


T24 


004737 
012777 
612777 
112746 
112766 
612677 
612777 


008077 
004737 


013731 
005037 
604737 


008737 
001074 


004737 
022737 
001461 
104632 


013746 
642716 
922637 
001401 
104032 


004037 
000026 


MACY11 27(687) 


READ ECC ENABLED 28 


024470 


163136 
024824 
692846 


001774 
030706 


001774 
024176 


027126 
174000 
001734 


027550 


163154 
163150 


000001 
163140 


001704 
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768 


a. ARE REGULAR SETUPS 
SR 


PC, OOCLOISK pSETUP GENERAL REGISTERS 
MOV €°256,°4,,O0RHWC 9286, DATA 4 HEADER WORDS 
MOV OREINTO,ORHBA  ;STARTING ADDRESS OF READ BUFFER 
MOVB 60, °(8P) IN LOWER BYTE GET SECTOR 
MOVB OG, 1(6P) sGET TRACK IN HIGHER BYTE 
MOV (SP)¢, ORHDST ;TRACK/SECTOR IN RHOST 
MOV OFMT22,ORHOF 916 BITS PER WORD 


pECC CORRECTION NOT INHIBIT 
pBECAUSE ECC I6 NOT GOING 
p70 BE CHECKED 


CUR ORHCA pCYLINDER © 

JGR PCe OOCHECKT sCHECK FOR DVA, RADY, MOL, DPR, DRY 
MOV @OREFOR, ORI READ HEADER AND DATA®72 

CLR OoERFLGS pCLEAR ERROR FLAG 


JSR PC. OOCOMHD sREAD HEADER AND DATA 
937 THERE ARE READ ERRORS THEN 
pECC WILL NOT BE CHECKED 


gIF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
FROM THE "COMHD® ROUTINE THAT MEANS SECTOR GAP, 

pFIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 

pSYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 
pDETECTED 

pHEADER AND DATA ARE TO BE CHECKED 

gIN CHECKING READ DATA THE WRITE PRON BUFFER 

p°WRFRON® 36 FILLED WITH EXPECTED DATA AND 

pCOMPARIGONS ARE MADE 


t8T OCERFLGS 
BNE T8T264«=6p BRANCH IF YES 


JSR PC, OOPUTREG pSAVE REGISTERS 

CHP DOCK, OOERI pONLY DATA CHECK ERROR SHOULD BE SET 
BEa 68 pBRANCH IF YES 

ERROR 32 oe oe ECC REGISTER SHOULD BE HON 


) 
pONLY 43 OF THE 32 BITS CAN BE SEEN 
3m THE PATERN REGISTER 
pOCK SHOULD BE SET IN RHERY 
MOV OOGECC1,¢¢(SP) sGET PATTERN REGISTER 
Bric 6174000, (SP) KEEP ONLY 34 BITS 
CMP (8P)o,00EC2 sCOMPARE PATTERN REGISTER 
BEG Te sBRANCH IF 9 


pANY ERRORS ALREADY THERE 


GOO 
ERROR 32 943 BITS OF THE 32 BIT ECC REGISTER INCORRECT 


JSR RO, OOECORR = TO ECC ie he PROCESS 


+ COMPLETE. 


e* 


, 





MAINDEC*11¢DERPTASCA 
DERPTA,Pii T24 


016600 
016604 
016610 
016614 
016620 
016626 
016630 
016634 
016640 
016644 
016650 
016652 
016654 


016664 
016670 


0166746 
016700 
016702 
016704 
016706 
616710 


016742 
016714 


016716 
016720 


016722 


005303 
001378 


012737 


004737 
005037 


004037 
662064 
003130 
000404 
0167134 
016720 


016724 
104004 


600207 
104005 


000207 


WACY11 27(657) 
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024706 
802064 
918060 
000000 

ee6e008 


oe0400 
4177977 


677777 


024170 
001774 


062676 
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JSR PC, OOCHECKE sCHECK DVA,ORY, ROY, DPR 
MOV OWRFROM, RO sGETTING READY TO FILL EXPECTED DATA 
MOV COIFMT22,(RO)®  sCYLINOER @ 
MOVB #0, @(8P) p3N LOWER BYTE GET SECTOR 
MOvB 6, i¢sP) sGET TRACK IN HIGHER BYTE 
MOV (8P)o, (ROO pGET TRACK/SECTOR In SUFFER 
MOV rer (RO)¢ pREY3 IN BUFFER 
MOV Th (Re)e sKEYQ 36 BUFFER 
MOV 0286.5 Ri sDATA WORD COUNTER 
MOV @o4, R2 pDATA 

360 MOV R20 (Re)¢ pDATA INTO BUFFER 
DEC Ri sCount 
BNE 36 pBRANCH IF 256 NOT DONE 


pONLY GOOD DATA HAS BEEN PUT IN °WRFROK? 
pNOW THE INSERTED ERROR WILL BE PUT In 
MoV 077777, CGURFRONSCSO2> ;INSERTED ERROR 


JSR PC, OOPUTREG pGAVE REGISTERS 
CUR OoERFLGS pCLEAR ERROR FLAG 


pWOw READ DATA BUFFER wIiLL BE CHECKED 


JSR RO, @OCOMPAR CHECK 
WRFROM 9G00D BUFFER 
REINTO pTEST BUFFER 
40256, pNUMBER OF WORDS CHECKED 
46 pRETURM POINT FOR ERROR HEADER 
$8 pRETURN POINT FOR ERROR DATA 
TsT2s PRETURN FOR GOOD COMPARISON 
ats ERROR 4 READ WEXT ERROR 
RIS Pc pRETURN TO "COMNPAR® 
Ra0 ERROR § pWORD NOS 4g TO @ ARE 
pMEADER WORDS 
98 TO 26@ ARE DATA WORDS 
RTS ec pRETURN TO °COMPAR® 
PRSLGGIS SHOOT VSGDSES SSSSOFHSOESHOVSHOGO SS SOLO GIR HSOSHHIHOTSHREDOOA 
peTEst 25 READ ECC EMABLED 32C 
hd THI6 38 Aw ECC READ DATA TEST 
58 ERROR CORRECTION I6 ENABLED 
iT) A WON CORRECTABLE ERROR 16 INSERTED IN BIT POSITION 32 AND 23 
fe GOOD DATA USED 16 286 WORDS OF 1477777 
1% COMMAND I8 GIVEN FOR CYLINDER @ FORMAT 146 BITS PER WORD 


a) 
i.) 







































(4) 
(4) 


016724 
016726 


016732 


016740 
016744 
016750 
016784 
016756 
016760 
016762 
016764 
016766 


016772 
016774 
016776 


017000 


017004 
017012 
017016 
017024 
817032 
017636 
617042 
017046 


017052 


017060 
017066 
017074 
017102 
017110 
017116 


MAINDEC} 1 eDERPTASA 
DERPTA,Pii 


T25 


000004 
0127066 


012737 


012746 
612705 
0127008 
011628 
008305 
001375 
605726 
022028 
012705 


605020 
005308 
001378 


004737 


612737 
008037 
013737 
013737 
006637 
005037 
005037 
005037 


012737 


$12737 


412737 
012737 
012737 
0132737 
005037 


MACYi1 27(687) 


1777797 
000400 
032734 


000017 


027722 


4177977 
027140 
027134 
027142 
027126 
027130 
027144 
027146 


004174 


027136 
627150 


031021 
031020 
031022 
031024 
031076 


ISeAPRe75 
READ ECC ENABLED 2¢€ 


17845 PAGE 44°66 


TRACK 6, SECTOR @ KEYS @ READ HEADER AND DATA 


POSSSSSSSSHSHSHHSHEHHHHSHHHLOSHHHSHSHHHSSHHHHHHHHHHHHHHSOHREHOSOS 


TST2S% 


SCOPE 


MOV 


MOV 


@STACK, SP 


OTINO, OOTSTNM 


pRESET STACK 


sTHIS SAVES TEST NUMBER 


SETUP FOR WHAT I8 TO BE READ 
HEADER CRC 18 RESTORED FROM A SUBROUTINE 


JSR 


0256,, R38 
OOISK, RO 
(SP), (RO) 
RS 

is 

(SP)¢ 
(ROD O, CREDO 
01860 RS 
(RO)¢ 

RS 

a8 

PC, OOFILLEC 


pDATA TO BE READ 

pCOUNTER 

sSTART OF BIMULATED DISK DATA 
pMOVE IN DATA ON TO SIMULATED DI6K 
sCOuNT 

pSRANCH IF 256 NOT COMPLETE 
gUNDO ©(8P) 

pJUNP OVER THE TWO ECC WORDS 
94 DATA GAP 

914 TOLERANCE Gap 

pCLEAR DATA GAP, AND 
PTOLERANCE GAP 

pBRANCH If WOT COMPLETE 


SINGERT THE TWO ECC WORDS OW THE DISK 
pIN THE CORRECT PLACE 


pTHESE ARE FOR ECC TEST ONLY 


MOV 
CLR 
MOV 
MOV 
Cup 
CLR 
CLR 
CLR 


°1,00TSECC THIS 38 AN ECC TEST 

OeposrTz sCLEAR ERROR POSITION COUNTER 
OONCODE, OONCOUNT pTEMPORARY WeCODE COUNTER 
OOHARDER, OOHADTMP pTEMPORARY HARD ERROR COUNTER 
@eGECCi sECC LOW ORDER 70 BE GENERATED 
oeGecca ECC MIGH ORDER TO BE GENERATED 
OODATENV sCLEAR DATA ENVELOPE CLOCK COUNT 
OOTCODE sCLEAR LEADING ZEROS CLOCK COUNT 


pTHESE ARE TO SETUP FOR DISKLESS USE ONLY 


MOV 


MOVB 
MOVB 
MOV 
MOV 
MOV 
CUR 


OFNT22,00CYL 


$16 BITS PER WORD 
pCYLINDER @, FORMAT 16 BITS 


60, OOSECOTRe’ *TRACK B 


Ge OPSECOTR SECTOR O 
60, OOKEY)  »KEYiee 
G06 OOKEY2 sKEY209 


0256.5 G@CDAWORD ;NO, OF DATA WORDS 


sTHIg Ie A READ COMMAND 


o 
a 





- 


%® eee eae@e@eeo®@e@0@e80Q0@080e08080e0060e@e® 


MAINDEC*11eDERPTASA MACY31 27(657) {SeAPRe7S 172845 PAGE 44°67 
DERPTA,Pii T2325 READ ECC ENABLED 2C¢ 
7723 ©17122 604537 625646 JSR RS, @eCRC 960 TO CALCULATE CRC 
7724 17126 631016 CYL 
7725 «817130 632716 were 
7726 
7727 
7728 pTHIS 18 TO INSERT ERROR 
7729 pTHE DISK DATA I8 IN LOCATION STARTING FROM °DISK* 
7730 pTHE POSITION OF THE ERROR CAN BE CHANGED BY CHANGING 
7731 pTHIS MOVE 
7732 017132 612737 677787 632736 MOV 677757, 0eDISKeQ sFORCE ERROR ON BIT NUMBER 32 AND 21 
7733 = ERROR POSITION REGISTER WILL shOw 
7734 5 
7735 617140 0612737 610048 0617306 MOV 641286,,0008 STINSERT POSITION REG, 
7736 
7737 
7738 pTHESE ARE REGULAR SETUPS 
7739 617146 004737 06244706 JSR PC, OOCLOISK pSETUP GENERAL REGISTERS 
7740 @©17152 012777 1977374 162444 MOV 60256,°¢,,ORHWC $256, DATA 4 HEADER WORDS 
7741 ©17360 0612777 603138 462440 MOV OREINTO,ORHBA STARTING ADDRESS OF READ BUFFER 
7742 #©17166 112746 eee0ee MOVB @3s ©(8P) 30 LOWER BYTE GET sECTOR 
7743 017172 1312766 00088 600001 MOVB 06, 4(6P) pGET TRACK IN HIGHER BYTE 
7744 017200 612677 462432 MOV (SP)o, ORHDST  ;TRACK/SECTOR IN RHOST 
7745 017204 612777 610008 162430 MoV OFHT2Z2,ORHOF 916 BITS PER WORD 
7746 ECC CORRECTION NOT INHIBIT 
7747 pBECAUSE ECC 16 NOT GOING 
7748 TO BE CHECKED 
cree 017212 @08077 162426 CUR ORHCA sCYLINDER @ 
750 
7781 017216 0864737 6245246 JSR PCe OOCHECKT sCHECK FOR DVA,RDY,MOL,DPR,DAY 
7752 
7753 817222 013711 062046 MOV OOREFOR, ORI PREAD HEADER AND DATAS72 
7784 017226 005037 001774 CLR OsERFLGs pCLEAR ERROR FLAG 
7755 ©17232 004737 030706 JSR PC. @eCOMHD »READ HEADER AND DATA 
7756 otf THERE ARE READ ERRORS THEN 
7787 pECC WILL NOT BE CHECKED 
7758 
7789 
7760 IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
7761 pFROM THE “COMHD® ROUTINE THAT MEANS SECTOR GAP, 
7762 pFIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 
7763 pSYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 
7764 pOETECTED 
7765 pHEADER AND DATA ARE TO BE CHECKED, 
7766 piN CHECKING READ DATA THE WRITE FROM BUFFER 
7767 p°WRFROM® 38 FILLED WITH EXPECTED DATA AND 
zoos pCOMPARISONS ARE MADE 
76 
bag 017236 0605737 601774 t8T OOERFLGS ANY ERRORS ALREADY THERE 
771 
ss 017242 001103 BNE TST260«=6 BRANCH IF YES 
(3 
7772 «4017244 684737 624170 JSR PC, OOPUTREG pSAVE REGISTERS 
7773 017250 022737 190080 601704 CMP @OCK, OOERI pONLY DATA CHECK ERROR SHOULD BE SET 
7774 017256 601401 BEQ $8 pBRANCH IF YES 


9 ee @eeeeeeeeeeeeeeeeeee ®@ 





MAINDECe1 1 eDERPTASA 
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7778 
7776 
7777 
7778 
7779 
7780 
7761 
7782 
7763 
77064 
7765 
7786 
7787 
7768 
7769 
7798 
7791 
7792 
7793 
7794 
7795 
7796 
7797 
7798 
7799 
7600 
7601 
7802 
7603 
7604 
7605 
7806 
7807 
7808 
7809 
7810 
7811 
7812 
7613 
7614 
7815 
7816 
7817 
7618 
78619 
7820 
7821 
7822 
7823 
7824 
7025 
7826 
7627 
7828 


017260 


017262 
017266 
017272 
017276 
017360 


017302 
017306 


017310 


017314 


017322 
017324 


017326 
017332 
017336 
017342 
017346 
017354 
017356 
017362 
017366 
017372 
017376 
017400 
017402 


017404 


017412 
017416 


017422 


T2s 
104032 


013746 
042716 
022637 
601401 
104032 


004037 
000000 


004737 


022737 


001401 
1046036 


004737 
012700 
012720 
112746 
112766 
012626 
012720 
612720 
012703 
012762 
610228 
005301 
001375 


012737 


004737 
005037 


004037 


MACYi3 27(687) 
READ ECC ENABLED 2C 


027126 
174000 
001734 


027550 


024178 


024766 
692864 
010000 
6e6900 
6eeaon 


6HB400 
4797799 


077787 


624170 
001774 


025342 


061704 


002076 


ISeAPRe7§ 


76% 
TT) 
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O8GECC1,°( SP) 
6174000, (8P) 
(8P)o,00EC2 
78 

4a 


PC, OOPUTREG 


PC, OOCHECKE 
@WRFROM, RO 
OOLFNT22, (RO)e 
C06 °(8P) 
00. 1¢8P) 
(RO)e 
000 CRO) 
OG6 (RO)@ 
0256,.5 Ri 
Goi, R2 
R2, (RO)¢ 


++ A, ECC REGISTER SHOULD BE NOW 

' 

pONLY 11 OF THE 32 BITS CAN BE SEEN 

pIN THE PATERN REGISTER 

sDCK SHOULD BE GET IN RHER} 

9GET PATTERN REGISTER 

pKEEP OWLY 13 BITS 

SCOMPARE PATTERN REGISTER 

sBRANCH IF GOOD 

944 BITS OF THE 32 BIT ECC REGISTER LHCORRECT 


9G0 TO ECC CORRECTION PROCESS 
pEXPECTED POSITION REG, WHEN CORRECTION 
938 COMPLETE 


pSAVE REGISTERS 


SWITH ERRORS INSERTED IN BIT POSITION 21 
pAND 32 HARD ERROR BIT SHOULD SET 

pBRANCH IF GOOD 

pWITH ERROR INSERTED IN BIT POSITION 24 THRU 
932 NCE BHOULD SET 


CHECK DVA, DRY, ROY, DPR 
sGETTING READY TO FILL EXPECTED DATA 
pCYLINDER @ 

pI LOWER BYTE GET SECTOR 
9GBT TRACK IN HIGHER BYTE 
GET TRACK/SECTOR IN BUFFER 
sREY, 28 BUFFER 

sKEY2 In BUFFER 

sDATA WORD COUNTER 

sOATA 

sDATA INTO BUFFER 

sCOUNT 

pBRANCH IF 286 NOT DONE 


pONLY GOOD DATA HAS BEEN PUT IN °WRFRON? 
pNOW THE INSERTED ERROR WILL BE PUT IN 


MOV 


JSR 
CUR 


077757, O0eWRFRONS<SO2> 


PC, OOPUTREG 
OOERFLGS 


PSAVE REGISTERS 
NCLEAR ERROR FLAG 


pNOW READ DATA BUFFER WILL BE CHECKED 
CHECK 


JSR 





MAINDECe] $ eDERPTASA MACY11 27(657) iI8eAPRe7S 17745 PAGE 44069 
DERPTA,Pii 725 READ ECC ENABLED 2C¢ 
7829 017426 002064 WRFROM 9G00D BUFFER 
7830 017430 0803130 REINTO sTEST BUFFER 
7631 017432 900404 40256, SNUMBER OF WORDS CHECKED 
7632 617434 617442 48 pRETURN POINT FOR ERROR HEADER 
ee 017436 017446 $6 pRETURN POINT FOR ERROR DATA 
634 
of 017440 0617452 TST26 SRETURN FOR GOOD COMPARISON 
(1 
7635 017442 104004 46s ERROR 4 SREAD WEXT ERROR 
7836 017444 660267 RTS pc PRETURN TO °CONPAR® 
7637 0174466 104008 68s ERROR § pWORD NOS 4 TO 4 ARE 
7638 pHEADER WORDS 
7839 9S 70 260 ARE DATA WORDS 
io 017450 000207 RTS eC pRETURN TO *CONPAR® 
41 
7042 
7843 
7844 
7845 
7846 
7655 
7856 § OOSSSSSSOSSHSHSHHSHHSHHHSHSEESHHHSHHOHHHHHHHOTHSHHOSCHHHHSCEOORS 
a peTEST 26 WRITE ECC TEST 3 
(4 
(4) ha THIS 38 A WRITE ECC TEST 
(4) s@ WRITE CYLINDER @, FORMAT 16 BITS PER WORD 
(4) s@ TRACK @, SECTOR 4, KEYS @, NUMBER OF WORDS 256 
co. s@ OF ALL $2528, 
(3) § 9OSSSOOHHHSOHSHSHSHOHHHHHHHSHHSSHSHSHSHHOHHHHHSHSHHHHHHHHHHGHCOS 
(2) 017452 900004 TST260 «6SCOPE 
7657 017454 012706 901008 HOV OSTACK, SP RESET STACK 
tt 
5 
ee 017468 012737 860026 0664174 MOV OTINO, OOTSTNM  JTHIS SAVES TEST NUMBER 
(3 
7868 017466 012760 632636 nov OSECGAP, RO sPOINTER 
7861 017472 612701 909460 MOV 0304,,R3 pCOUNTER 
7062 017476 908020 18s CLR CRO)¢ CLEAR SIMULATED OZSK AREA 
7863 017800 005301 ore RY 
7664 017502 001375 SNE ié 
aoe 017504 604767 604760 JR pC ,CLOISK pTHIS 18 USED TO SET GENERAL REGISTERS 
et pTHESE ARE FOR ECC TEST ONLY 
7669 @17510 012737 177777 902012 Mov 0-1, 00TSECC THIS 36 AN ECC TEST 
7070 ©17516 609037 627140 CUR OopOsrITI pCLEAR ERROR POSITION COUNTER 
7671 017522 613737 627134 627136 MOV OONCODE, OONCOUNT pTEMPORARY NeCODE COUNTER 
7672 ©1753@ 613737 627142 6271580 NOV OOHARDER, OOHADTNP pTEMPORARY HARD ERROR COUNTER 
7873 017536 605037 627126 CUR @eGECC’ sEcc a Bg ni 70 BE GENERATED 
7674 017542 005037 0627130 CUR @oGcEcc2 pace ORDER TO BE GENERATED 
7675 017546 605037 027144 CUR OeDATENYV SCLEAR tOATA ENVELOPE CLOCK COUNT 
7876 617552 0059037 627146 CLR Oe ZCODE CLEAR LEADING ZEROS CLOCK COUNT 














MAINDEC*1 1 eDERPTACA MACY11 27(657) {SeAPRe7§ 175465 PAGE 44070 
DERPTA,P11 126 WRITE ECC TEST 3 
7079 
a7 
e 7000 
7001 pTHESE ARE TO BE SETUP FOR DISKLESS USE ONLY 
7002 
e 7863 17556 0612737 610000 034122 MOV OFMT22,00WCYL  )PORMAT220168IT WORDS AND 
7004 sCYLINDER © 
° 7805 617564 012737 90001 034124 MoV 01, 00WSECTR PTRACKS@, SECTORS) 
7006 017572 005037 034126 CLR OoWRKEYS pKEYis@ 
7007 017576 005037 034130 CLR OowKEY2 pKEY200 
° 7808 017602 012737 @08400 034162 MOV €256,,00FNWORD 4256 DATA WORDS 
7069 017610 604937 029646 JSR RS, OOCRC 160 TO CALCULATE CAC 
7890 017614 0634122 weyL 
7091 017616 034132 Gcrc 
® 7892 
7093 PTHNSE ARE REGULAR SETUPS 
® 7095 017620 012777 477374 «161776 MOV 00260,,ORHWC (9256 DATA WORDS 4 HEADER WORDS 
7096 017626 012708 002064 MOV OWRFROM, RO PTHESE TWO INSTRUCTIONS GETS 
7097 017632 010077 161770 MOV RO, ORHBA pADDR, OF WRFROM INTO Re AND 
€ 7098 p8US ADDRESS REGISTER 
7899 017636 012720 #19000 NOV OFPNT22,(RO)®  j;PORMATS{6 BIT WORDS 
7900 sCYLINDERSO 
€ 7901 017642 012720 eseees 268 Mov 010 (ROD© pTRACKSQ, SECTORS:, KEYSea@ 
7902 017646 008020 CLR (ROS pREYi0@ 
7903 017650 008020 CLR (RO)¢ pREY209 
€ 7904 017652 012708 seedee MOV 8256,,R5 sCOUNTER 
7905 017656 012728 0929258 281 MOV 052525, (RO)® MOVE ALL $2825 FOR DATA 
7906 017662 005305 pec RS 
€ 7907 017664 001374 ONE 38 pSRANCH IF DATA NOT COMPLETE 
7908 017666 012777 @80001 161742 MOV 01, ORHDST pTRACKS® SECTORAS 
7909 
€ 7910 
(1) 
e (4) 017674 004767 904624 JSR PC, CHECKT pCHECK DVA, RDY, DPR, DRY 
a 
7911 
7912 017700 033711 002042 MoV @OWRIFOR, ORI )GET READY FOR WRITE HEADER AND 
€ 7913 pOATA WITH 62 IN RHC6i 
7914 017704 905037 003774 CLR OcERFLGS PCLEAR ERROR FLAG 
7915 17710 012777 ©1008 161724 MOV OPMT22,@RHOF = ;FORMAT BITes (16 BIT WORDS) 
e 1916 17716 005077 161722 CLR ORNCA ICYLINDER 06 
7917 017722 004737 033776 JSR PC, @OCOMWHD SWRETE HEADER AND DATA 
91 
é 7919 p27 THE PROGRAM CONES BACK HERE WITHOUT ERROR PRINTOUTS 
71920 pPROM THE "COMWHD® ROUTINE THAT WEANS ALL HEADER OW DISK 
7921 928 GOOD IE, ONLY DATA I8 TO BE CHECKED TO SEE IF THEY ARE 
€ 7922 pALL 62525 AND WRITE DATA GAP AND TOLERANCE GAP TO SEE IF 
7923 pTHEY ARE ALL ZEROS 
2 
€ 7925 017726 908737 001774 T8T OcERFLGS pHAS ANY ERRORS OCCURED? 
7926 p2F WRITE ERROR OCCURS ECC 18 NOT CHECKED 
92 
€ (1) 017732 901083 BNE 18727 «=p pBRANCH IF YES 
€ 
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MAINDEC 011 eDERPTACA 
DERPTA,Pil 


(1) 
7928 
7929 
7930 
7931 
7932 
7933 
7934 
7935 
7936 
7937 
7938 
7939 
7940 
7941 
7942 
7943 
7944 
7945 
7946 
7947 
7948 
7949 
79508 
7981 
7982 
7953 
7984 
7955 
7956 
7987 
7958 
7989 
7960 
7961 
7962 
7963 
1964 
7965 
7966 
7967 
7968 
7969 

(1) 

(1) 
7970 
7971 
7972 
7973 
7974 
7975 
7976 
7977 
7978 


017734 
017742 
017744 
017746 
017750 
017756 
017760 


017762 


017766 
017772 
017774 
017776 


020000 
020006 
020014 
020020 
020022 
020024 


020032 
020036 
020040 
020042 
020044 
020046 


023737 
001402 
104031 
900405 
023737 
001461 
104031 


004737 


004037 
903130 
004126 
0825258 


013737 
013737 
004037 
004134 
004170 
oeee00 


005037 


0040637 
003130 
032734 
806402 
020052 
020056 


0220062 
104007 


000207 
104010 


MACY31 27(657) 


WRITE ECC TEST 3 


027126 033734 


027130 033736 


824786 


027126 004130 
027130 004132 
OA6886 


001774 


ISeAPRe7S 


pCOMPARE SOFTWARE GENERATED ECC WITH THAT GENERATED BY HARDWARE 
CMP OOGECC1, OOWECCI COMPARE SOFTWARE ECC WITH HARDWARE ECC 


68 
31 
78 


es SOFTWARE ECC WITH HARDWARE ECC 


17845 PAGE 44071 


PC. OOCHECKE 


sBRANCH IF GOOD 
sLOW ORDER ECC IN ERROR 
sBRANCH TO CONTINUE 


pBRANCH IF GOOD 
SHIGH ORDER ECC IN ERROR 


SCHECK DVA, ROY, DRY, OPR 


pFILL ee BUFFER WITH EXPECTED DATA 


sPILL REINTO BUFFER 
pFROM 
9TO 


OOGECC1 o GOREINTOS<]S6,O2>5FILL ECCS 
OOGECC2, OOREINTOOCZS7 02>; FILL ECC2 


FILL REST 
PRON 
sTO 


sCLEAR ERROR FLAG 


pnow —— *DIGK® BUFFER WITH "REINTO® 


aay 
58s 


RO, OOCLAREA 
REINTO 
REINTOO<35§ , 02> 

e WORD 82848 

MoV 

MOV 

JER RO, OOCLAREA 

REINTOC<2586 02> 

REINTO*<372,02> 

@ pDATA 

CLR @OCERFLGS 

a RO, COCOMPAR 

REINTO 

DIsK 

256, 

4G 

$6 

78T27 

ERROR 7 

RTS pe 

ERROR 10 


sCHECK 

9G00D BUFFER 

sTEST BUFFER 

sNUMBER OF WORDS CHECKED 
RETURN POINT FOR ERROR HEADER 
RETURN POINT FOR ERROR DATA 


RETURN FOR GOOD COMPARISON 


pREAD ERROR 10 NEXT 
sRETURN TO COMPARE 

pWORD NOS § TO 2896 ARE 
sDATA WORDS 

sWORD NOS 257 AND 258 

pARE ECC WHICH ARE CHECKED 
sWORD NOS 259 

938 DATA GAP 

pWORD NOS 260 TO 273 








MAINDEC*{1eDERPTASA MACY11 27(657) iSeAPRe75 171945 PAGE 44°72 
DERPTA,Pii T26 WRITE ECC TEST 3 


9 : pARE TOLERANCE GAP 
7968 020060 0600207 RTS pc pRETURN TO COMPARE 
4 


7997 $00 0000000000000000000000000000000000000000000000000000000000008 
(3) p@TEST 27 READ ECC ENABLED 3A 


(4) @ THIG 36 AN ECC READ DATA TEST 

(4) s@ ERROR CORRECTION 36 ENABLED 

(4) @ WO ERROR 18 INSERTED 

(4) s@ GOOD DATA USED 18 256 WORDS OF 52525 

(4) 9@ COMMAND 36 GIVEN FOR CYLINDER @ FORMAT 16 BITS PER WORD 
(4) i* TRACK 6, SECTOR @ KEYS @ READ HEADER AND DATA 


(3) $000000000000000000000000 00000000000 HSCOHOHOOEHOOOCEHODEHHCODOE® 
(2) 020062 #908004 TST27¢ «6SCOPE 
7998 020064 612706 #061900 HOV OSTACK, SP PRESET STACK 


(1) 020070 012737 600027 0684174 MOV OTTNO,OOTSTNN  sTHIS SAVES TEST NUMBER 


6003 t SETUP FOR WHAT 18 TO BE READ 
WEADER CRC 138 RESTORED FROM A SUBROUTINE 


0006 820076 012746 652525 MOV 052525, °(8P) sDATA TO BE READ 

8007 020102 012785 009400 MOV 0256,, RS sCOUNTER 

8008 020166 012708 0632734 MOV eOIsK, RO sSTART OF SIMULATED DISK DATA 
8009 020112 011626 16s MOV (SP), CRO)@ =©6pMOVE IN DATA ON TO SIMULATED DISK 
8010 020114 005305 DEC RS sCOUNT 

8011 020116 061375 BNE is sBRANCH IF 256 NOT COMPLETE 
0012 020120 008726 T8Tt (SP)¢ sUNDO ©( SP) 

8013 020122 0622020 CMP (ROO, (RODE sJUMP OVER THE TWO ECC WORDS 
8014 620124 0612788 900017 MoV 615,, RS 3 DATA GAP 

8015 44 TOLERANCE GAP 

8016 0620130 095020 268 CLR CRO)e sCLEAR DATA GAP, AND 

8017 020132 006305 DEC BS STOLERANCE GAP 

8018 620134 0901375 BNE 26 pBRANCH IF HOT COMPLETE 


8021 020136 004737 627722 JSR PC, OOF ILLEC sINGERT THE TWO ECC WORDS ON THE DISK 
6022 p30 THE CORRECT PLACE 


8024 pTHESE ARE FOR ECC TEST ONLY 


8026 020142 0612737 177777 062012 MOV @°1,00TSECC pTHIS I8 AN ECC TEST 

8027 020150 005037 627149 CLR oePpOsITI pCLEAR ERROR POSITION COUNTER 

0028 020154 613737 627134 027136 MOV OONCODE, GONCOUNT pTEMPORARY NeCODE COUNTER 
8029 020162 013737 027142 027156 MOV OOHARDER, @OHADTNP SfEMPORARY HARD ERROR COUNTER 





‘ 
9est @eeoee8eg ehmUcCOUCUCOWUCOMUCOhC MOMUC~<C MTC PMC UC WC CULOlLUCOmhUCUC COhUr?PM 
BS 
eo 
Se 
& 
= 


a 


— 
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020178 
020174 
020200 
020204 


020216 
020224 
020232 
020240 
020246 
020254 
020260 
020264 
020266 


020270 
020274 
020302 
0203108 
020314 
020322 
020326 


020334 
020340 
020344 


020350 
020354 


727 


005037 
003037 
008037 
005037 


012737 


412737 
412737 
012737 
012737 
012737 
005037 
004537 
031016 
032716 


604737 
012777 
012777 
112746 
112766 
012677 
012777 


005077 
004737 
013711 


005037 
004737 
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627126 
027130 
027144 
027146 


0000¢0 
000000 
0090008 
000080 
080400 
031026 
OI3646 


024479 
177374 
063130 
080600 


boso00 
161310 
615500 


001774 
030706 


031621 
031020 
031022 
031024 
031076 


163322 
161316 


ISeAPRe7S 177345 PAGE 44073 
READ ECC ENABLED 3A 


CLR @eGECCi sECC LOW ORDER TO BE GENERATED 
CLR @eGECC2 sECC HIGH ORDER TO BE GENERATED 
CLR OeDATENYV sCLEAR DATA ENVELOPE CLOCK COUNT 


CLR OeZCODE sCLEAR LEADING ZEROS CLOCK COUNT 


sTHESE ARE TO SETUP FOR OISKLESS USE ONLY 


MOV OFMT22,00CY¥L 946 BITS PER WORD 
pCYLINDER O, FORMAT 16 BITS 


MOVB 68, OOSECOTRe’, sTRACK O 

MOVB 66, @esECOTR sSECTOR O 

MOV 00, OOKEY) sKEYie@ 

MOV TD OOKEY2 j;KEY200 

MoV — OODAWORD ,HO, OF DATA WORDS 
CLR @OR pTHIG 38 A READ COMMAND 
JSR RS, @eCRC 960 3O CALCULATE Cac 
CYL 

were 


pTHESE ARE REGULAR SETUPS 
JSR PC, OOCLOIGK sSETUP GENERAL REGISTERS 
woV 09286 ,°4,,ORHWC 3256, DATA 4 HEADER WORDS 
MOV OREINTO,ORHBA  ;STARTING ADDRESS OF READ BUFFER 
MOV Ge (ap) #38 LOWER BYTE GET SECTOR 
Move BOs 1¢8P) GET TRACK IN HIGHER BYTE 
MOV (SP), ORHDST ;TRACK/SECTOR IN RNDST 
MOV OPMTZ2,ORHOF 946 BITS PER WORD 
pECC CORRECTION WOT INHIBIT 
pSECAUSE ECC I8 NOT GOING 
TO BE CHECKED 
CLR ORHCA sCYLINDER @ 


JSR PCe OCCHECKT SCHECK FOR DVA,RDY, MOL, DPR, DRY 


MOV OOREFOR,@Ri #READ HEADER AND DATA®72 

CLR OoERFLGs sCLBAR ERROR FLAG 

JER PC @eCCOMND »READ NEADER AND DATA 
ptP THERE ARE READ ERRORS THEN 
pECC WILL NOT BE CHECKED 


p27 THE PROGRAM CONES BACK HERE WITHOUT ERROR PRINTOUTS 
pFROM THE "COMHD® ROUTINE THAT MEANS SECTOR GAP, 

pFIRST SYNC, HEADER, NEADER CRC, HEADER GAP AND 

pSYNC BYTE HAVE GONE BY AND SYNC6 WERE CORRECTLY 
DETECTED 

pHEADER AND DATA ARE TO BE CHECKED, 

pIN CHECKING READ DATA THE WRITE FROM BUFFER 

e"WARFROM" Ig FILLED WITH EXPECTED DATA AND 

SCOMPARISONS ARE MADE 


RQ 





e < 
MAINDEC #41 eDERPTASA MACY11 27(657) {1S5eAPRe7S 17945 PAGE 44074 
e DERPTA,Pii 127 READ ECC ENABLED 3A 7 
eoe4 
e goes 020360 005737 001774 18T OoERFLGs pANY ERRORS ALREADY THERE r 
Tr) 
ca 020364 001077 BYE T6T3}@ );BRANCH IF YES ‘ 
(i 
€ 0007 020366 004737 024170 JSR PC, OOPUTREG pSAVE REGISTERS 
6008 020372 005737 001704 T8T OoER p80 ERRORS SHOULD BE SET 
© 8089 020376 001401 BEO 68 pORANCH IF NO ERRORS SET r 
8090 020400 104032 ERROR 32 932 BIT ECC REGISTER SHOULD BSE ZERO 
0091 ONLY 44 OF THE 32 BITS CAN BE SEEN 
e 0092 p18 THE PATERN REGISTER € 
0093 pOCK SHOULD OE SET IN ANERS 
0094 020402 0137466 027126 683 MOV @eGECC1,°(8P) GET PATTERN REGISTER 
e @09S ©20406 042716 174000 Bic 6174000, (SP) sRECP ONLY 11 BITS e 
0096 020412 022637 001734 CMP (8P)¢,00EC2 COMPARE PATTERN REGISTER 
6097 020416 001401 BEQ 78 sQRANCH IF GOOD 
e goee 020420 104032 ERROR 32 p43 BITS OF THE 32 BIT ECC REGISTER INCORRECT ‘ 
09 
o10s P 
101 
e 8102 
6103 pADD 16 MAINTENANCE CLOCKS TO 
0104 pBRING EBL DOWN € 
8108 
8106 020422 012788 #90020 768 mov 016,,R0 pCOUNTER 
0107 020426 082777 8090002 161216 66% Bis ONCLK, ORHMR p8ET CLOCK r 
© 8108 020434 042777 e90002 161210 are ONCLK, ORHMA ICLEAR CLOCK 
8109 020442 008360 pec RG sCOUNT 
0110 0204644 001370 BHE rT) sBRANCH 3F 36 CLOCKS NOT DONE « 
© 0111 ©20446 064737 6246706 JSR PC, COCHECKE sCHECK DVA,DRY,RDY,OPR 
0112 020452 012700 092064 MOV OWRFRON, RO GETTING READY TO FILL EXPECTED DATA 
6113 020456 012720 e10000 mov OOLFNT22,(CRO)@  sCYLINDER @ € 
€ 0114 020462 112746 ssecce MOVE 00. ©(8P) 9238 LOWER BYTE GET SECTOR 
@115 020466 1123766 seseee8 900001 MOVE Ty a¢8P)  sGET TRACK IN HIGHER BYTE 
0116 020474 612620 MOV (8P)e, (ROI GET TRACK/SECTOR IN BUFFER < 
© 6137 020476 012720 seecce MOV 0, (Re)e  9KEY, 36 SUFFER 
6118 020802 012720 eeccee MOV 00, (RO)® pREY2 36 SUFFER 
6119 020506 012701 eeede0 MOV 0256.5 Ri pOATA WORD COUNTER € 
C 6120 ©20512 012702 682525 MOV 52525, R2 pDATA 
6121 020516 010220 36s MOV R2, (Re)  sDATA INTO BUFFER 
6122 020520 005301 pec Ra sCOUNT € 
€ #123 020522 901375 BNE 38 JORANCH IF 286 NOT DONE 
i 
6125 & 
® 0126 
0127 
e e138 020524 @08037 601774 CUR @cERFLGS pCLEAR ERROR FLAG « 
i 
130 020530 004737 024170 JSR PC, OOPUTREG pSAVE REGISTERS P 
i 
© 0132 pWOW READ DATA BUFFER WILL BE CHECKED 
0134 020534 904037 025342 JSR RO, OOCOMPAR pCHECK é 
e 8135 020840 902064 WRFROM 1G00D BUFFER 
© € 
’ , ¢ 






DERPTA,Pii 


8136 020542 
6137 620544 
6138 020546 
6139 0620550 


(1) 620852 


8141 020554 
8142 020556 
8143 020560 


(2) 0620564 
8164 020566 


(1) 020872 


8172 0620600 
6173 020604 
6174 020610 
8175 020614 
6176 020616 
6177 020620 
8178 020622 
6179 020624 
8160 020626 


MAINDECe{ 1 eDERPTACA 
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003130 
000404 
020554 
020560 


104004 
000207 
104005 


000207 


000004 
012706 


012737 


012746 
012708 
012700 
011620 
005305 
001375 
005726 
022020 
012705 


005305 
001375 


MACYi1 27(657) 
READ ECC ENABLED 3A 


082825 
609486 
032734 


000017 


004174 


ISeAPRe7S$ 17545 PAGE 44°75 


REINTO pTEST BUFFER 

40256, SNUMBER OF WORDS CHECKED 

44 SRETURN POINT FOR ERROR HEADER 

56 pRETURN POINT FOR ERROR DATA 

TST32 SRETURN FOR GOOD COMPARISON 
ee ERROR 4 pREAD NEXT ERROR 

RTS pc pRETURN TO *CONPAR® 
S63 ERROR § pWORD NOS 4 70 4 ARE 

pHEADER WORDS 
98 TO 26@ ARE DATA WORDS 

RTS pc pRETURN TO "COMPAR® 
$900880600000000000000000000000000000000000000000000000000 000008 
peTEst 30 READ ECC ENABLED 3B 
9® THIS 38 AN ECC READ DATA TEST 
hed ERROR CORRECTION 16 ENABLED 
$e A CORRECTABLE ERROR 18 INSERTED IN BIT POSITION 4128 
9@ THIS 36 THE LAST BIT OF THE ECC 
ye GOOD DATA USED I8 256 WORDS OF $2525 
18 COMMAND Ig GIVEN FOR CYLINDER @ FORMAT 46 BITS PER WORD 
hd TRACK @, SECTOR @ KEYS @ READ WEADER AND DATA 
PFHHOFGSSHSESSSFHTFIOCSCIOSGOOTHSOFHGOGHS OHH HGTHBHOGSOHHHDGOHDSOSHOOTED 
787300 §6SCOPE 

wOoV OSTACK, SP pRESET STACK 

Mov OTINO,GOTSTNN PTHIS SAVES TEST NUMBER 


16s MOV 


052525, wa 


0256.5 R 
eDISK, Re 
(SP), (RO) 
RS 

is 

(EP) 
(RO)o, (Rede 
1500 RS 
(RO)e 

AG 

ae 


SETUP FOR WHAT 38 TO BE READ 
HEADER CRC 26 RESTORED FROM A SUBROUTINE 


sDATA TO BE READ 
sCOUNTER 
pSTART OF SIMULATED DISK DATA 


pMOVE ZN DATA ON TO SIMULATED DISK 


sCOUNT 

SBRANCH IF 286 NOT COMPLETE 
pUNDO ©(6P) 

sJUMP OVER THE TWO ECC WORDS 
#4 DATA GAP 

914 TOLERANCE GAP 

pCLEAR DATA GAP, AND 
pTOLERANCE GAP 

sBRANCH IPF NOT COMPLETE 





6165 
6166 
6167 
61868 
61869 
8190 
6191 
6192 
6193 
6194 
6195 
8196 
6197 
0198 
6199 
8200 
8201 
6202 
8203 
6204 
6205 
8206 
8207 
8208 
8209 
8210 
6211 
8212 
8213 
6214 
6215 
8216 
6217 
6218 
6219 
6220 
6221 
8222 
8223 
6224 
8225 
8226 
8227 
8226 
6229 
8230 
6231 
6232 
8233 
0234 
8235 
8236 
6237 
8238 


9eeoeuewcU;mmCcomwrrmO—mUCOOmCUClcWCcwWUCc OmwUCcUOmUC OUCOHUCUCMCOOCUClC OUCUcC!HhUCUc HCO hUhT!HhUh!}SO 


020640 


020644 
020682 
020656 
220664 
020672 
020676 
020702 
020706 


020712 


02072¢ 
020726 
220734 
020742 
020750 
020756 
020762 
020766 
020770 


020772 
020776 
021000 
021004 
021012 


021016 


021624 
021030 
021036 
021044 


MAINDEC*11eDERPTASA 
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T30 


004737 


012737 
005037 
013737 
013737 
005037 
005037 
005037 
005037 


012737 


412737 
412737 
012737 
012737 
012737 
008037 
004537 
031016 
032716 


013746 
005116 
042716 
042737 
052637 


612737 


004737 
012777 
012777 
4112746 
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027722 


477777 
027140 
027134 
027142 
027126 
027130 
027144 
027146 


060000 
000000 
eo0eeee 
000000 
800400 
031026 
025646 


033736 


077777 
100000 
033736 


024470 
177374 
003130 
000000 


002012 


027136 
0271528 


031016 


031021 
031020 
031022 
031024 
031076 


033736 


021164 


ISeAPRe75 17:45 PAGE 44°76 
READ ECC ENABLED 3B 


JSR PC, @eFILLEC sINSERT ECC IN PROPER PLACE ON DISK 


pTHESE ARE FOR ECC TEST ONLY 


MOV §e1,08TSECC pTHIS IS AN ECC TEST 

CLR @ePOSITI sCLEAR ERROR POSITION COUNTER 

MOV OeNCODE, @ONCOUNT HTEMPORARY NeCODE COUNTER 

MOV OeOHARDER, O#HADTMP STEMPORARY HARD ERROR COUNTER 
CLR @eGECCi sECC LOW ORDER TO BE GENERATED 

CLA @eGECCa SECC HIGH ORDER TO BE GENERATED 

CLR @eDATENV 9CLEAR DATA ENVELOPE CLOCK COUNT 

CLR Oe ZCODE pCLEAR LEADING ZEROS CLOCK COUNT 


pTHESE ARE TO SETUP FOR DISKLESS USE ONLY 


MOV OFMT22,00CYL 916 BITS PER WORD 
gCYLINDER @, FORMAT 16 BITS 

MOVB 60, OOSECOTRe{ sTRACK @ 

MOVB 60, G@eSECOTR s»SZCTOR © 

MOV 800 OSKEY) ;sKEYi8@ 

MOV 00» OOKEY2 ;KEY2e@ 

MOV #256, @®DAWORD »NO, OF DATA WORDS 

CLR @ex sTHIS I8 A READ COMMAND 

JSR RS, @eCRC 9G0 TO CALCULATE CRC 

CYL 

were 


pTHIS I8 TO INSERT ERROR 
pTHE DISK DATA 16 IN LOCATION STARTING FROM °DISK* 
pTHE POSITION OF THE ERROR CAN BE CHANGED BY CHANGING 


pTHIS MOVE 

pTHIS CHANGES THE LAST BIT OF THE ECC 

MOV @eWECC2,°(8P) GET LAST ECC 

com (SP) pINVERT ALL BITS OF WECC2 

BIC #°Ciee000, (SP) KEEP BIT 16 

BIC €100900,00WECC2 ;CLEAR BIT 16 IN ECC 

BIs (SP)¢,@0WECC2 THIS WILL SET BIT 16 IF IT WAS O 
pOR WILL SET NOTHING IF If WAS A 1 

MOV 04110,,0088 SINSERT POSITION REG, 

pTHESE ARE REGULAR SETUPS 

JSR PC, OOCLDISK pSETUP GENERAL REGISTERS 

MOV 0°256,°4,,@RHWC 9256, DATA 4 HEADER WORDS 

MOV OREINTO,@RHBA j;STARTING ADDRESS OF READ BUFFER 

MOVB = «8 °(6P) 9 IN LOWER BYTE GET SECTOR 


® @ @ @ 0600000000000 e0ee0e0ee#@ee@eeé® 





Z 


ee 
oe 
MAINDEC©1 1 eDERPTACA 
e DERPTA, PAS 130 
8239 021080 112766 
° 8240 021056 012677 
0241 021062 012777 
a 
24 
&@ 0244 
8245 021070 908077 
e 0246 
0247 021074 004737 
0240 
e 0249 021100 033731 
8250 021104 003037 
0251 021110 004737 
e 8252 
0253 
0254 
255 
@ 8256 
m2 
2 
@ 8259 
ie 
@ 8262 
te 
26 
6 8265 
8266 021114 05737 
° 8267 
(1) 021120 ee1e74 
(4) 
e 0268 021122 004737 
8269 021126 022737 
8270 021134 01401 
e 0271 021136 104032 
8272 
tif 
2 
@ 8275 
0276 921140 913746 
° 8277 021144 042716 
8278 021150 922637 
0279 021184 01401 
° 8280 021186 104032 
8201 
8202 021160 094037 
° 0283 021164 010026 
0204 
coe 
206 
@ 0207 
0206 021166 004737 
° 8209 021172 012700 
8290 021176 012720 
6 
a) 


MACY11 27(657) 
READ ECC ENABLED 38 


000000 
160554 
010000 


160550 
024524 
002046 


001774 
030706 


001774 


024176 
196000 


627126 
174000 
001734 


027580 


024706 
002064 
016000 


000001 
160552 


001704 


ISeAPRe7§ 17:45 PAGE 44077 


788 
Sau 


MOVB 60, 1(8P) sGET TRACK IN HIGHER BYTE 
MOV (SP)¢, Q@RHDST j;TRACK/SECTOR IN RHDST 
MOV OFMT22,ORHOF 916 BITS PER WORD 


pECC CORRECTION NOT INHIBIT 
pBECAUSE ECC I8 NOT GOING 
TO BE CHECKED 


CLR @RHCA sCYLINDER @ 

JSR PCe OSOCHECKT ;CHECK FOR DVA, ROY, MOL,OPR,DRY 
MOV OCREFOR, ORI pREAD HEADER AND DATAS72 

CLR OoERFLGS pCLEAR ERROR FLAG 

JSR PC, GOCOMHD sREAD HEADER AND DATA 


37 THERE ARE READ ERRORS THEN 
pECC WILL NOT BE CHECKED 


“pif THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 


pFROM THE "COMHD® ROUTINE THAT MEANS SECTOR GaP, 
FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 
SYNC BYTE HAVE GONE BY AND SYNCS6 WERE CORRECTLY 
ps DETECTED 

pHEADER AND DATA ARE TO BE CHECKED, 

pIN CHECKING READ DATA THE WAITE PROM BUFFER 
p°WRFROM® 18 FILLED WITH EXPECTED DATA AND 


sCOMPARIGONS ARE MADE 


t8T @CERFLGS ANY ERRORS ALREADY THERE 

BNE TST3i «= BRANCH LF YES 

JSR PC, COPUTREG pSAVE REGISTERS 

CMP eOCK, OOERi pONLY DATA CHECK ERROR SHOULD BE SET 

BEOQ 68 pBRANCH IF YES 

ERROR 32 aoe We ECC REGISTER SHOULD BE NON 
pZER 
pONLY 44 OF THE 32 BITS CAN BE SEEN 
IN THE PATERN REGISTER 
gDCK SHOULD BE GET IN RHERY 

MOV @eGECC1,°(6P) 1GET PATTERN REGISTER 

BIC 0174000. (8P) REEP ONLY 43 BITS 

Cup (SP)¢,00EC2 sCOMPARE PATTERN REGISTER 

BEQ 78 pBRANCH IF GOOD 

ERROR 32 $4% BITS OF THE 32 BIT ECC REGISTER INCORRECT 

JSR RO, OOECORR 960 TO ECC CORRECTION PROCESS 

4116, pEXPECTED POSITION REG, WHEN CORRECTION 
938 COMPLETE 

JSR PC. OOCHECKE SCHECK DVA,DRY/ ROY, DPR 

MOV OWRFROM, RO pGETTING READY TO FILL EXPECTED DATA 

MoV OGIFMT22,CRO)® CYLINDER @ 
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MAINDEC?1 1 eDERPTASA MACY11 27(657) iSeAPR°7S 17545 PAGE 44°78 
& DERPTA,Pii T30 READ ECC ENABLED 38 
6291 621202 112746 #0800008 MOVB 60, @(SP) pIN LOWER BYTE GET SECTOR 
o 6292 021206 112766 800008 600001 MOVB 60, 1(SP) pGET TRACK IN HIGHER BYTE 
8293 021214 612620 MOV (SP)o, (RO)® sGET TRACK/SECTOR IN BUFFER 
6294 621216 612720 seeecese MOV 06. (RO)® jsKEY, IN BUFFER 
Q 6295 021222 612728 seeecee MOV TT (Re@dJ® ~sKEYQ IN BUFFER 
6296 021226 612701 ee04e0 MOV 0256. Ri sDATA WORD COUNTER 
6297 ©21232 012762 0525258 MOV 082525, R2 DATA 
e 8298 021236 010220 368 MoV R2e CRO) sOATA INTO BUFFER 
8299 621240 605301 DEC Ri sCOUNT 
ag 621242 001375 BNE a8 pSRANCH IF 256 NOT DONE 
ei 
e 6302 pONLY GOOD DATA HAS BEEN PUT IN °WRFROK? 
6303 pNOW THE INSERTED ERROR WILL BE PUT IN 
@ foog p8UT INSERTED ERROR I8 IN ECC SO DATA 18 NOT WRONG 
30 
8306 
2 ees @21244 604737 0624170 JSR PC, OOPUTREG pSAVE REGISTERS 
coe 021250 0605037 001774 CLR OOERFLGS pCLEAR ERROR FLAG 
10 
® e311 
coag pNOW READ DATA BUFFER WILL BE CHECKED 
i 
2 6314 621254 604037 625342 JSR RO, COCOMPAR sCHECK 
8315 021260 602064 WRFROM 9G00D BUFFER 
? 8316 621262 0031308 REINTO sTEST BUFFER 
6317 021264 9090404 40256, pRUMBER OF WORDS CHECKED 
6318 021266 021274 44 PRETURN POINT FOR ERROR HEADER 
3 4h 021270 021300 58 pRETURN POINT FOR ERROR DATA 
® 
ef 021272 0621304 T6T33 pRETURN FOR GOOD COMPARISON 
(1 
< 6321 021274 104004 463 ERROR 4 gREAD NEXT ERROR 
6322 021276 660207 RTs pc pRETURN TO *°COMPAR® 
> 8323 021300 164085 Ses ERROR § SWORD NOS 4 TO 4 ARE 
6324 pHEADER WORDS 
6325 98 TO 26@ ARE DATA WORDS 
> nytt: 021302 600207 RTS Pc pRETURN TO "COMPAR® 
é 
6339 
0340 PPEREO RSET ESO EOE TELE REEFESESHO TOV EMDR E OHDOT OSSOHEDHOEOOROREDTETD 
> (3) p@TEST 34 READ ECC ENABLED 3C¢ 
> (4) @ THIS I8 AN ECC READ DATA TEST 
(4) s* ERROR CORRECTION 38 ENABLED 
(4) 9® A WON CORRECTABLE ERROR 16 INSERTED IN BIT POSITION 296 THRU 308 
> (4) y@ THIS 18 IN WORD NUMBER 49 AND 20 
(4) i* GOOD DATA USED I8 256 WORDS OF 62525 
(4) ,@ COMMAND 36 GIVEN FOR CYLINDER @ FORMAT 16 BITS PER WORD 
> i hd TRACK @, SECTOR @ KEYS @ READ HEADER AND DATA 
(3) $ 90980600 00000000000 0000000 0000000000000000 000000000000 000 000000 
® (2) 021304 e6e004 T6T3is SCOPE 
6341 021306 612766 #601000 MOV @STACK, SP pRESET STACK 
3 
» 
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8342 
0343 

(1) 

(4) 
0344 
6345 
0346 
6347 
0348 
6349 
6350 
6351 
6352 
8353 
6354 
6355 
8356 
6357 


021320 
021324 
921330 
021334 
021336 
021340 
021342 
021344 
021346 


021352 
021354 
021356 


021364 
021372 
021376 
021404 
021412 
021416 
021422 
021426 


021440 
021446 
021454 
021462 
021470 
021476 
021502 
021506 
021510 


012737 


012746 
012705 
612700 
011620 
005305 
001375 
003726 
622020 
012705 


005020 
003305 
001375 


604737 


612737 
008037 
013737 
013737 
008037 
905037 
005037 
008037 


012737 


412737 
112737 
012737 
012737 
012737 
005037 
004537 
031016 
032716 
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052525 
020400 
032734 


600017 


027722 


4177777 


004174 


027136 
027150 


031021 
031020 
031022 
031024 
031076 


ISeAPRe7§ 
READ ECC ENABLED 3C 


MOV 


17945 PAGE 44°79 


OTTNO, OOTSTNM 


sTHIG SAVES TEST NUMBER 


SETUP FOR WHAT I6 TO BE READ 
HEADER CRC I6 RESTORED FROM A SUBROUTINE 


JSR 


652525, °(8P) 
2 R 


CaP), CRO)e 
R 


(SP)¢ 
(RO), CROD¢ 
1560 RS 
(RO)¢ 

AS 


PC. OOF ILLEC 


sDATA TO BE READ 

pCOUNTER 

pSTART OF SIMULATED DISK DATA 
sMOVE IN DATA ON TO SIMULATED DIgkK 
sCOUNT 

sBRANCH IF 256 NOT COMPLETE 
pUNDO ©(8P) 

pJUMP OVER THE TWO ECC WORDS 
94 DATA GAP 

934 TOLERANCE GAP 

sCLEAR DATA GAP, AND 
pTOLERANCE GAP 

pBRANCH IF NOT COMPLETE 


pINGERT THE TWO ECC WORDS OW THE DISK 
gIN THE CORRECT PLACE 


pTHESE ARE FOR ECC TEST ONLY 


91, 90TSECC sTHIS 18 AN ECC TEST 

eopOsttz sCLEAR ERROR POSITION COUNTER 
OoNCODE, eeNCcOUNT sTEMPORARY NeCODE COUNTER 
OOHARDER, OOHADTHP STEMPORARY HARD ERROR COYNTER 
@0GECCs pECC LOW ORDER 70 BE GENERATED 
eeGEcca sECC HIGH ORDER TO BE GENERATED 
OeDATENY NCLEAR DATA ENVELOPE CLOCK COuNt 
0eZCODE ICLEAR LEADING BEROS CLOCK CoUuNT 


pTHESE ARE TO SETUP FOR DISKLESS USE ONLY 


Mov 


OFNT22, @0CYL 916 BITS PER WORD 
sCYLINDER O, FORMAT 16 BITS 
000 OOSECOTRe, STRACK @ 
Be GOSECOTR SECTOR @ 
Ohe OOKEY,  sKEYie@ 
Be OOKEY2 j;KEYQe9 


0256., GODAWORD 3NO, OF DATA WORDS 
Box 


RS, OeCRC 


sTHIg Ig A READ COMMAND 
G0 TO CALCULATE CRC 
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8394 
6395 
6396 
6397 
6398 


021534 
021540 
021546 
021554 
021560 
021566 
021572 


021600 
021604 
021616 


021614 
021620 


021624 
021630 


021632 
021636 
021644 
021646 


T34 


012737 
012737 
012737 


004737 
012777 
012777 
112746 
112766 
012677 
012777 


005077 
004737 
013711 


005037 
004737 


005737 
001106 


004737 
022737 
001401 
104032 
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READ ECC ENABLED 3¢ 


152652 033000 
052532 633002 
010048 621674 


024470 
177374 160056 
003130 160052 
000008 
000000 000001 
162044 
019008 160042 


160040 
024524 
062046 


001774 
030706 


001774 


024170 
100000 0601704 


sTHIS 18 TO INSERT ERROR 

pTHE DISK DATA I6 IN LOCATION STARTING FROM °DISK* 
ope + ge OF THE ERROR CAN BE CHANGED BY CHANGING 
pTHIS MOV 


MOV 9152652,00DISKe44) INSERT ERROR IN POSITION 296 THRU 304 
IN WORD NUMBER 19 

MOV 052532, 00D18Ke46) INSERT ERROR IN POSITION 305 THRU 308 
pIN WORD NUMBER 20 

MOV 04126,,0088 sINSERT POSITION REG, 


pTHESE ARE REGULAR SETUPS 
JSR 


PC, OOCLDISK SGETUP GENERAL REGISTERS 
MOV 0°256,°4,,ORHWC 9256, DATA 4 HEADER WORDS 
MOV OREINTO,ORHBA j;STARTING ADDRESS OF READ BUFFER 
MOVB 06, #(8P) IN LOWER BYTE GET SECTOR 
MOVE 60, 1¢8P) GET TRACK IW HIGHER SYTE 
MOV (SP)¢, ORHDST sTRACK/SECTOR IN RHDST 


MOV OFMT22,ORHOP 916 BITS PER WORD 
pECC CORRECTION NOT INHIBIT 
sBECAUSE ECC 18 NOT GOING 
970 BE CHECKED 


CUR ORHCA pCYLINDER @ 

JSR PCo OOCHECKT sCHECK FOR DVA, ROY, MOL, DPR, DRY 
MOV @OREFOR, ORI pREAD HEADER AND DATA®S72 

CLR @eERFLGO pCLEAR ERROR FLAG 

JSR PCe @OCOMHD READ HEADER AND DATA 


p27 THERE ARE READ ERRORS THEN 
pECC WILL NOT BE CHECKED 


g3F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
pFROM THE °COMHD® ROUTINE THAT MEANS SECTOR GAP, 

FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 

pSYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 
pDETECTED 

pHEADCR AND DATA ARE TO BE CHECKED, 

pIN CHECKING READ DATA THE WRITE FROM BUFFER 

p°WRFROM® 26 FILLED WITH EXPECTED DATA AND 

SCOMPARISONS ARE MADE 


T8T @eERFLGS 
BNE T6T32 4 «=66sBRANCH IF YES 


pANY ERRORS ALREADY THERE 


JSR PC, COPUTREG pSAVE REGISTERS 

CMP - "ea pONLY DATA CHECK ERROR SHOULD BE SET 

BEQ pBRANCH IF YES 

ERROR 32 4+ ag ECC REGISTER SHOULD BE NON 
p2ER 


pONLY $1 OF THE 32 BITS CAN BE SEEN 
pIN THE PATERN REGISTER 
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— 
e ¢ 
MAINDEC*1 1 ¢DERPTACA MACY11 27(657) ‘SeAPR°75 17345 PAGE 44°81 

e DERPTA,P1i1 T31 READ ECC EWABLED 3¢ « 
0446 DOCK SHOULD BE SET IN RHERi 
0447 021650 013746 027126 66: MOV @8GECCi,*(8P) sGET PATTERN REGISTER q 

€ 0448 021654 042716 174000 BIC 6174000, (SP) KEEP ONLY 44 BITS 
0449 021660 022637 001734 CMP (8P)¢,00EC2 pCOMPARE PATTERN REGISTER 

e 0450 021664 001401 B£O 78 BRANCH IF GOOD ¢ 
0451 ©21666 104032 ERROR 32 $44 OITS OF THE 32 BIT ECC REGISTER INCORRECT 
8452 

© 0453 021670 004037 0275S¢e 788 JSR RO, @OECORR 9G0 TO ECC CORRECTION PROCESS « 
0454 021674 ee0c00 ess WORD EXPECTED POSITION REG, WHEN CORRECTION 
0455 ’ 928 COMPLETE 

€ 6456 « 
0457 
ease 

e 6459 021676 604737 624170 JSR PC, OO PUTREG SAVE REGISTERS ¢ 
0460 021702 022737 100190 001704 CMP ODCKIECH,@eER] WITH ERRORS INSERTED IN BIT POSITION 23 
0461 pTHRU 32 HARD ERROR BIT SHOULD SET 

Ps 0462 021710 001401 BO 98 sBRANCH IF GOOD « 
8463 ©21712 104036 ERROR 36 pWITH ERROR INSERTED IN BIT POSITION 23 THRU 
8464 932 HCE SHOULD sET 

€ 0465 q 
6466 
8467 

© 6468 021714 004737 0246706 TT JSR PC, OOCHECKE CHECK DVA,DRY,RDY,OPR « 
0469 021720 012700 002064 MOV OWRFROM, RO pGETTING READY TO FILL EXPECTED DATA 
0470 021724 012720 #18000 MOV COlFNT22,(RO)*  sCYLINOER @ 
0471 021730 112746 eee0cee Move 00, o(6P) 9 I LOWER BYTE GET SECTOR « 

€ 6472 021734 412766 ee0008 e9ecei MOVE 00, i¢sP)  sGET RACK IN HIGHER BYTE 
6473 021742 012620 MoV (SP), (RO)@ 3GET TRACK/SECTOR IN BUFFER 

€ 8474 021744 012720 sescee MoV Th (Rede  sKEYg IN BUFFER q 
6475 02175@ 012720 eecesee MOV BGo (Re)e  sKEYQ IN BUFFER 
6476 021754 012701 eeede0 MOV 0286., Ri pDATA WORD COUNTER 

e 8477 021760 012762 082525 MOV 062525, R2 pDATA fy 
6478 021764 010220 361 MOV R2, (Re) ;DATA INTO BUFFER 
6479 021766 005361 DEC Ry pCOUNT 

e Sete 021778 001375 BRE 38 pBRANCH IF 256 NOT DONE ( 
401 
0402 pONLY GOOD DATA HAS BEEN PUT IN °WRFRON? 

e 0463 pNOW THE INSERTED ERROR WILL BE PUT IN 4 
0404 ©23772 0132737 182682 002140 MOV 0152652, 0@WRFROMOS4; INSERT ERROR IN POSITION 296 THRU 3046 
9485 gIN WORD NUMBER 19 IN DATA 
6406 022000 012737 052532 602142 MoV 052532, @0WRFRONCS6) INSERT ERROR IN POSITION 305 THRU 308 ¢ 

€ a4? ;2N WORD NUMBER 20 IN DATA . 
48 

© pees 022006 004737 024178 Jar PC, OOPUTREG pSAVE REGISTERS ¢ 
4 
0491 

6 oeee 022012 @05037 001774 CLR @cERFLGS CLEAR ERROR FLAG ¢ 
4 
0494 

© gece pNOW READ DATA BUFFER WILL BE CHECKED « 
0497 ©22016 004037 025342 JSR RO, OOCOMPAR CHECK 

Ps 6498 022022 002064 WRFROM 9G00D BUFFER ¢ 
8499 022024 003130 REINTO sTEST BUFFER 

e « 

a 


| 


“A 


eee 
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MAINDECe1 1 DERPTASA MACY11 27(657) {SeAPRe7S 17545 PAGE 44°62 
DERPTA,Pi1 T31 READ ECC ENABLED 3¢ ¢ 
8500 022026 000404 40256, NUMBER OF WORDS CHECKED 
@501 022030 022036 4a RETURN POINT FOR ERROR HEADER ¢ 
oses 022032 022042 58 RETURN POINT FOR ERROR DATA 
50 
ca 022034 022046 18732 RETURM FOR GOOD COMPARISON ( 
ai 
0504 022036 104004 46s ERROR 4 READ WEXT ERROR 
@505 022040 900207 RTS pc RETURN TO *COMPAR® q 
6506 022042 104005 Sst ERROR § pWORD NOS 4 TO 4 ARE 
6307 HEADER WORDS 
e508 #3 T0 26@ ARE DATA WORDS € 
esos 022044 600207 RTS tié’ RETURN TO *COMPAR® 
$10 
6522 ¢ 
6523 PSOHSSCOTESEHOHGS HS OEEOOHGSSOMGTHVSSSVHSISHVPHMOFOIOPOFVOSOSHSHOHRHOE 
ca) p@TEST 32 READ ECC ENABLED 30 p 
(4 
(4) 18 THIS I8 AN ECC READ DATA TEST 
(4) ye ERROR CORRECTION I8 ENABLED 
(4) s@ A NOW CORRECTABLE ERROR 18 INSERTED IN BIT POSITION 32 AND 4696 « 
(4) pe 4096 I8 THE LAST DATA BIT 
(4) 18 GOOD DATA USED 18 286 WORDS OF 82525 
(4) rT) COMMAND I8 GIVEN FOR CYLINDER @ FORMAT 16 BITS PER WORD « 
C4) $e TRACK @, SECTOR @ KEYS @ READ HEADER AND DATA 
(4 
(3) PESSCSPESPHIHOCHGSHSOSETSIFHHSHOFGHSHS SOS SHOOCOCOSSIO OP TTEGHTOGHBOGRRD 4 
(2) @22046 ee0004 T8T32s SCoPE 
pees 022080 012706 61000 MOV @STACK, SP pRESET STACK ‘ 
$25 
6526 
(1) ©22054 012737 @90032 004174 MOV OTTNO,OOTSTNM THIS SAVES TEST NUMBER ‘ 
qi) 
0527 
6528 
6529 i SETUP FOR WHAT 18 TO BE READ d 
$920 ; HEADER CRC IS RESTORED FROM A SUBROUTINE 
$31 
0532 022062 012746 082525 MOV 052525, ©(SP) DATA TO BE READ ¢ 
6533 022066 012708 #90400 MOV 0286,, As COUNTER 
6534 @22072 012700 032734 MOV eDISK, Re pSTART OF SIMULATED DISK DATA 
6535 022076 011620 188 nov (8P), (RO) MOVE IN DATA ON TO SIMULATED DISK « 
8536 022100 905308 pec RS sCOUNT 
6537 ©22102 001375 BNE is BRANCH IF 256 NOT COMPLETE 
0538 022104 005726 T8T (8P)¢ pUNDO @(8P) q 
6539 022106 022020 CMP CRO) eo, (RO)* JUMP OVER THE TWO ECC WORDS 
0540 022110 012708 900017 MOV 015, RS #1 DATA GAP 
0541 9234 TOLERANCE Gap « 
6542 0622114 905020 28: CLR (RO)e pCLEAR DATA GAP, AND ’ 
6543 022116 005305 pec RS pTOLERANCE GAP 
ones @22120 001375 BRE 28 pBRANCH IF NOT COMPLETE ¢ 
$45 
6546 
6547 022122 904737 027722 JER PC, OSFILLEC PINGERT THE TWO ECC WORDS ON THE DISK q 
osee pIN THE CORRECT PLACE 
« 
GA ¢ 


—- 


pf 
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6549 
6550 
6551 
6352 
6553 
e554 
e555 
6556 
6557 
esse 
6ss9 
6560 
6561 
6562 
6563 
6564 
6565 
6566 
6567 
6568 
6569 
6570 
6571 
6572 
6573 
6574 
6575 
6576 
6577 
6578 
6579 
see 
656i 
6582 
ese3 
es5e4 
eses 
6566 
6587 
6566 
6509 
6590 
659) 
6592 
6593 
0594 
os95 
6596 
6597 
6596 
6599 
6600 
6601 
8602 


022126 
022134 
022140 
022146 
022154 
022160 
022164 
022178 


022174 


022202 
022210 
022216 
022224 
022232 
022240 
022244 
022250 
022252 


022254 
022262 
022270 


022276 
022302 
022310 
022316 
@22322 
022330 
022334 


022342 
022346 


732 


012737 
005037 
013737 
013737 
005037 
005037 
002037 
005037 


012737 


4112737 
412737 
012737 
012737 
032737 
005037 
004537 
031016 
032716 


012737 
012737 
012737 


004737 
012777 
012777 
112746 
112766 
012677 
012777 


005077 
004737 


013711 
008037 
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4777797 
027140 
027134 
027142 
027126 
027130 
027144 
027146 


182528 
152528 
010040 


024478 
177374 
003130 
880300 
Ceve08 
187302 
019000 


157276 
024524 


002046 
001774 


002012 


027136 
027150 


031016 


031021 
031020 
031022 
031024 
031076 


032736 
033732 
022436 


157314 
157310 


000001 
157300 


ISeAPRe75 17145 PAGE 44°63 
READ ECC ENABLED 3D 


pTHESE ARE FOR ECC TEST ONLY 


MOV 6-1, e¢TSECC pTHIS I8 AN ECC TEST 

CLR OePOsITI sCLEAR ERROR POSITION COUNTER 

MOV OONCODE, @ONCOUNT pTEMPORARY NeCODE COUNTER 

MOV OOHARDER, GOHADTMP STEMPORARY HARD ERROR COUNTER 
CLR @OeGECC: pECC LOW ORDER TO BE GENERATED 

CLR @eGECC2 sECC HIGH ORDER TO BE GENERATED 

CUR OSDATENY SCLEAR DATA ENVELOPE CLOCK COUNT 

CLR @eZCODE CLEAR LEADING ZEROS CLOCK COUNT 


sTHESE ARE TO SETUP FOR DISKLESS USE ONLY 


MOV OFMT22,00C YL 916 BITS PER WORD 
pCYLINDER 6, FORMAT 16 BITS 
MOVB 60. OOSECOTRe, PTRACK @ 
MOVB G6 OOSECOTR ;SECTOR © 
MOV LT OOKEY, )KEYie@ 
MOV 06. OOKEY2 sKEY2e9 
MOV 0256,0 GODAWORD »NO, OF DATA WORDS 
CLR Ex pTHIg Ig A READ COMMAND 


JSR RS, @eCRC 
CYL 
werc 


9G0 TO CALCULATE CRC 


pTHIS 38 TO INSERT ERROR 


' pTHE DISK DATA 26 IN LOCATION STARTING FROM *DISK* 


= en OF THE ERROR CAN BE CHANGED BY CHANGING 
pTHIS HOV 

MOV 9152525, 00DISKe2 pPORCE ERROR OW BIT NUMBER 32 
MOV 0192525, e@0DIS5Ke¢<255,02>;FORCE ERROR IN BIT 4096 
MOV 04128,,0066 PINSERT POSITION REG, 


pTHESE ARE REGULAR SETUPS 
JSR PC, OOCLOIEK pSETUP GENERAL REGISTERS 


MoV 0°256,°4¢,,ORHWC 5256, DATA 4 HEADER WORDS 

MOV OREINTO,ORHBA  ;STARTING ADDRESS OF READ BUFFER 
MOVB iT (SP) IN LOWER BYTE GET SECTOR 

MOVB 60. 1 (SP) pGET TRACK IN HIGHER BYTE 

MoV (SP)¢, ORHDST  ;TRACK/SECTOR IN RHOST 

MOV OFMT22,ORHOF 936 BITS PER WORD 


pECC CORRECTION NOT INHIBIT 
pBECAUSE ECC I8 NOT GOING 
9TO0 BE CHECKED 


CLR @RHCA sCYLINOER @ 
JSR PCe OOCHECKT sCHECK FOR DVA, ROY, MOL, DPR, DRY 
MOV OOREFOR, OR1 #READ HEADER AND DATA#72 


CLR OsERFLGS sCLEAR ERROR FLAG 


MAINDECe1 1 eDERPTASA 
DERPTA,Pil 


6603 
6604 
6605 
6606 
6607 
8608 
8609 
6610 
6611 
6612 
6613 
6614 
6615 
0616 
6617 
0618 
6619 

(1) 


732 
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022362 004737 630706 


022366 
022372 


022374 
022400 
022406 
022410 


022412 
022416 
022422 
022426 
622430 


022432 
022436 


022440 
022444 


022452 
022454 


022456 
022462 
022466 
022472 
022476 


005737 
001106 


004737 
022737 
001401 
104032 


013746 
042716 
022637 
001401 
104032 


004037 
000000 


004737 
022737 


001401 
104036 


064737 


112766 


001774 


024178 
100080 001704 


027126 
174800 
001734 


027580 


024170 
100100 001704 


024706 
002064 


iSeAPRe75 
READ ECC ENABLED 3D 


788 
Goa 


JSR 


17:45 PAGE 44°84 


PCe @SCOMHD ;READ HEADER AND DATA 


IF THERE ARE READ ERRORS THEN 
pECC WILL NOT BE CHECKED 


- pIF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 


pFROM THE "COMHD® ROUTINE THAT MEANS SECTOR GAP, 
pFIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 
pSYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 
sDETECTED 
pHEADER AWD DATA ARE TO BE CHECKED, 

pIN CHECKING READ DATA THE WRITE FROM BUFFER 
p°WRFAROM® IS FILLED WITH EXPECTED DATA AND 
pCOMPARISONS ARE MADE 


TST 


OoERFLGS 


TST33)04=— s BRANCH 


PC, COPUTREG 
eOCK, OOERI 
66 

32 


@0GECC1,°( SP) 
6174000, (8P) 
govrensenss 


PC, OOPUTREG 
ODCKIECH, OOERI 


PC, OOCHECKE 
OWRFROM, RO 
OOLFNT22,(RO)¢ 
80, o(8P) 
CDs i(eP) 


pANY ERRORS ALREADY THERE 
IF yes 


pSAVE REGISTERS 

pONLY DATA CHECK ERROR SHOULD BE SET 
sSRANCH IF YES 

4-1 _ ECC REGISTER SHOULD BE NON 
pZER 

pONLY 31 OF THE 32 BITS CAN BE SEEN 
IN THE PATERN REGISTER 

pDCK SHOULD BE GET IN RHERY 

pGET PATTERN REGISTER 

pREEP ONLY 14 BITS 

SCOMPARE PATTERN REGISTER 

pBRAWCH IF Go 

943 BITS OF THE 32 BIT ECC REGISTER IHCORRECT 


9G0 TO ECC CORRECTION PROCESS 
pEXPECTED POSITION REG, WHEN CORRECTION 
938 COMPLETE 


pSAVE REGISTERS 

SWITH ERRORS INSERTED IN BIT POSITION 32 
pAND 4096 HARD ERROR BIT SHOULD SET 

sBRANCH IF GOOD 

sWITH ERROR INSERTED IN BIT POSITION 24 THRU 
932 HCE SHOULD SET 


SCHECK DVA,DR¥,RDY, DPR 

pGETTING READY TO FILL EXPECTED DATA 
pCYLINDER @ 

9IN LOWER BYTE GET SECTOR 

sGET TRACK IN HIGHER SYTE 








®° @ @8 @ 0000600000000 0e0ee6eeéeeée® 


| 
9eeteoeeetkt 080808088 68868686 868 6@ 6@ 8 6 68 O68 lh 


MAINDEC*1 1 eDERPTASA 
DERPTA,Pi1i 


6655 
6656 
6657 
e656 
6659 
6660 
0661 
8662 
6663 
6664 
6665 
0666 
6667 
08668 
0669 
6670 
0671 
6672 
6673 
6674 
6675 
0676 
6677 
6678 
8679 
6600 
0681 
0682 
6683 

(1) 

(4) 
0684 
0665 
6686 
6687 
0668 
0689 
8690 
6691 
8692 
6693 
6694 
6695 
8696 
0697 
6698 
6706 
6707 

(3) 

(4) 

(4) 

(4) 

(4) 

(4) 


022504 
022506 
022512 
022516 
022522 
022526 
022530 
022532 


022534 
022542 


022550 
022554 


022560 
022564 
022566 
022570 
022572 
022574 


022576 
022600 


012620 
012720 
012720 
012761 
012702 
010220 
005301 
001375 


012737 
012737 


005037 
004737 


004037 
002064 
003130 
000404 
022600 
022604 


022610 
104004 


000207 
104005 


000207 


MACY31 27(657) 
READ ECC ENABLED 3D 


0000008 
ooeeee 
000400 
0525235 


001774 
024170 


025342 


002076 
003072 


ISeAPRe7S 17:45 PAGE 44085 


MOV (SP), (RO) GET TRACK/SECTOR IN BUFFER 
MOV 60, (RO)@ KEYS IN BUFFER 
MOV 60, (RO)@ jsKEY2 IN BUFFER 
NOV @256,, Ri sDATA WORD COUNTER 
MOV @52525, R2 pOATA 
36s MoV Re (Rede sDATA INTO BUFFER 
DEC Ri COUNT 
BNE 38 SBRANCH IF 256 NOT DONE 


pONLY GOOD DATA HAS BEEN PUT IN °WRFROKM? 

pNOW THE INSERTED ERROR WILL BE PUT IN 

MOV 0152525, COWRFROMG<§09> INSERTED ERROR IN BIT 32 

MOV 6152525, @ewRFROKS<259,02> pINSERT ERROR IW BIT 4096 


CLR @CERFLGS sCLEAR ERROR FLAG 
JSR PC, COPUTREG pSAVE REGISTERS 


pNOW READ DATA BUFFER WILL BE CHECKED 


JSR RO, OOCOMPAR CHECK 
WRFROM 9G00D BUFFER 
REINTO sTEst BUTTER 
40256, pNUMBER OF WORDS CHECKED 
at pRETURN POINT FOR ERROR HEADER 
$6 pRETURN POINT FOR ERROR DATA 
TST33 pRETURN FOR GOOD COMPARISON 
an ERROR 4 pREAD NEXT ERROR 
RTS pc pRETURN TO *COMPAR® 
665 ERROR 5 pWORD NOS 4 TO 4 ARE 


pHEADER WORDS 
93 TO 26@ ARE DATA WORDS 
RTS pc pRETURN TO *COMPAR® 


PSPSPS GHGSLGHSSHGEHHOGFOTESS SS GTHAO HS POSFSOOHASGHVSGHSOHOOEEGEOBOOOHO 


peTESt 33 PROGRAK INTERRUPT 

@ PROGRAM INTERRUPT 238 TESTED BY SETTING RDY AND IE 
@ IN RHCOi AT THE SAME TINE 

hd THIS SHOULD INTERRUPT THROUGH LOCATION 254 

9 THE PROCESSOR PRIORITY 18 SET TO 4 





% @ @ @ 0000000000000 e080ee0ee0e0®0 


(3) 

(2) 
6708 
6709 

(1) 

(1) 
6710 
0711 
6712 
6713 
6714 
6715 
6716 
6717 
6718 
6719 
6720 
6721 
6722 
6723 
6724 
8725 

(1) 

(1) 
6726 
8727 
6726 
6729 
8730 

(1) 


022620 
022624 
022630 
022634 
022640 
022644 
022652 
022656 
022664 
0226708 


022672 
022676 


022700 


022762 
022704 
022710 


022716 
022720 


022722 


022724 


022732 
022736 
022742 
022746 
022752 
022756 
022764 
022776 


MAINDEC 11 eDERPTASA 
DERPTA,Pii 


000004 


012737 


012706 
004737 


013708. 


012720 
012710 
012767 
012711 
013737 
005337 
001375 


004737 
104621 


000410 


022626 
004737 
022737 


001401 
104023 


000004 


012737 


012706 
004737 
013700 
012720 
0127108 
012767 
0127181 
013737 


MACY11 27(687) 


000633 604174 


001000 
024470 
001620 
022702 
000340 
000200 155124 
060300 
026024 001172 
001172 


024170 


024178 
004208 0017862 


000034 004174 


001000 
024470 
001620 
613066 
000340 
000240 155612 
BeOIee 
026024 001172 


ISeAPRe7S 17845 PAGE 44°86 
PROGRAM INTERRUPT 


TST338 4 6SCOPE 


MOV 


RPTRPis CMP 


OTINO, OOTSTNM 


@STACK, SP 

PC, COCLDISK 
GoRPVEC,RO 
@RPTRP1, CRODO 
0340, (RO) 
200,76 
@ORDYIIE, ORI 


sTHIS SAVES TEST NUMBER 


pRESET STACK 

sCLEAR DISK 

sGET VECTOR ADDRESS 

pSET INTERRUPT VECTOR 

pSET GERVICE ROUTINE PRIORITY 
pSET PROCESSOR PRIORITY 


ROY, 3E IN RNSCi SHOULD CAUSE INTERRUPT 


OOTINCNT, COS TMP COUNTER 


OosTHPI 
46 


pWAIT FOR INTERRUPT 
gBRANCH IF HOT ZERO 


sBEFORE THIS 16 ZERO INTERRUPT SHOULD 


pOCCUR 
pSAVE REGISTERS 
sINTERRUPT DID NOT OCCUR 


TST34 4 =69BRANCH TO WEXT TEST 


(SP) o, (SP) 

PC, OOPUTREG 
@DVAIRDY, 00C83 
T8T34 pBRANCH 


pRESTORE STACK 
pSAVE REGISTERS 
p3E SHOULD BE LOW 


SINTERRUPT OCCURED BUT 
s3E FAILED TO RESET 


peTEST 34 INTERRUPT AT PROCESSOR AND DISK PRIORITY SAME 
s@ PROCESSOR PRIORITY 18 SET AT S CSAME AS THE DISK) 
hed TE AND RDY 38 GET, THIS SHOULD NOT INTERRUPT 


TS6T340 4 =6SCOPE 


MoV 


MoV 
JSR 


OTTNO, OOTSTNN 


OSTACK., OP 

PC, OOCLOISK 
OeRPVEC,RO 
@ORPTRP2, (ROO 
0340, (Re) 
0240,05 
@ORDYIIE, ORI 


STHIS SAVES TEST NUMBER 


pRESET STACK 

pCLEAR DISK 

sGET VECTOR ADDRESS 

9SET INTERRUPT VECTOR 

9SET SERVICE ROUTINE PRIORITY 
sSET PROCESSOR PRIORITY 


pRDY, JE IN RHSCi SHOULD CAUSE INTERRUPT 









nn nn nn nn cc nc ccc cc cc ccc cc ccc c ccc cnn nn 


MAINDEC 11 eDERPTACA 
DERPTA,Pi1 


022776 
023002 


023016 
623020 
023026 
023032 
023040 
023044 


023140 
023140 
023144 
023146 
023152 
023156 
023160 
023164 
023170 
023174 
023200 
023202 
023206 
623212 


T34 


005337 
001375 


000404 


022626 
004737 
104021 


600004 
012767 
004737 
012767 
104400 
000425 


013746 
104410 
104400 
000402 


013746 
104410 
005637 
008737 
001415 
005067 
005237 
104400 
013746 
104410 
104400 
000137 
005337 


WACY11 27(687) 
INTERRUPT AT PROCESSOR AND Disk PRIORITY SAME 


001172 


024170 


000001 
024470 
608508 
OS3G46 


601762 
0231346 


001132 


001112 
001779 


155716 
6011008 
023366 
001100 


023403 
007036 
001764 


156186 
154736 


ISeAPRo7S5 17545 PAGE 44°67 


ies bec OoeTMPi SWAIT FOR INTERRUPT 
BNE is BRANCH IF NOT ZERO 
sBEFORE THIS I8 ZERO INTERRUPT SHOULD 
pOCCUR 
BR T8T35 sNO INTERRUPT 80 BRANCH 
RPTRP2: CMP (SP), (EP)¢ pRESTORE STACK 
JSR PC, O2PUTREG pGAVE REGISTERS 
ERROR 21 sINTERRUPT OCCURRED WITH 
pPROCESSOR STATUS SANE 
pAS DISK 


peTEST 35 END OF DRIVE 
g@ THIS 16 THE END OF TEST FOR ONE ORIVE 
2® If THERE ARE WORE DRIVES THEN THE PROGRAN 
9@ JUMPS TO TEST & FOR NEXT DRIVE TEST 
3@ END PASS 138 REACHED ONLY AFTER ALL DRIVES ARE COMPLETE 
$00 0800 080000000000 000000000000000000000000000000000000008000088 
TST3Se SCoPE 
MOV Oi, 6TIMES 9900 § ITERATION 
JSR PC, OOCLOISK 
MOV 6O0P3 pREINSTATE PS TO @ 
TYPE 0004 peTYPE ASCIE STRING 
BR 648 99GET OVER THE ASCIZ 
cs 99, ASCIZ €15>¢12>/TOTAL ERRORS ON THIS PASS ON UNIT NO, / 
Ty 
ae OeUNIT, ©( SP) sGET READY To TYPE UNIT HUMBER 
P 
TYPE 0904 peTYPE AGCIZE STRING 
BR 688 99GET OVER THE ASCIZ 
ua 99 ,ASCISZ fa / 
63 
ae OOSERTTL,°(8P)  ;GET READY To TYPE NUMBER oF ERRORS 
CLR OssERTTL sCLEAR TOTAL NUMBER OF ERRORS 
t8Tt OOSELECT sSTARTING FROM 2006 ? 
BEQ 38 pBRANCH IF YES 
CUR OTSTNM sCLEAR TEST NUMBER 
Inc OOSPA&SS sINCREAGE PASS COUNT 
TYPE o SENDMG sTYPE END PASS @ 
MOV OOCPASS,°( SP) 
TYPDS 
TYPE e SENULL 
UMP OeoTtsts sJUMP TEST § 
3G DEC OonOUNITS 940, OF UNITS PRESENT DECREMENT 


L4 


5° @&060806=0464f8 @ @e 8@khO8@etehmlmCmtKlmlmC mC RHlmUCRUmUC RUC KDC UC KOC Clef 





>” 02 © @ @ © © 6 6 6 6 6 O@ hUemUmUOWmUmUCOUCOUCOUC ECB 


, 


MAINDECe11eDERPTASA 
T35 


6879S 623216 
6796 023220 
6797 023224 
8798 023230 
8799 023232 
6800 023234 
6801 0623236 
8602 0623242 


001413 
013700 
012701 
022100 
001401 
000775 
011137 
000137 


MACY11 27(657) 
END OF DRIVE 


001762 
001742 


001762 
007036 


ISeAPREIS 


17845 PAGE 44-88 


seoPp 
CoUNIT, RO 
OUNITS, RY 
(Ri)e,RO 
a6 


ja 
(R1),OCUNIT 
oetsts 


sBRANCH IF ALL DRIVES COMPLETE 
sUNIT UNDER TEST 

pTABLE 

I8 THIS > — TESTED 
pBRANCH IF 

sBRANCH IF x0” 

sTHIS 38 NEXT UNIT 

9GO FOR NEXT TESTS, 


& 
° 
a] 
S 
Q 
o 
® 
© 
© 
® 
: 
© 
© 


FR FE FEFL FFE FFE FFF FAL VHA FHF AFA HAF HAIAAAARK RAR 
i de ee ee ee ee ee ee ae 


| 


023246 
023246 
023250 
023254 
023260 
023264 
023272 
023274 
023276 
023300 
023302 
023304 
023306 
023312 
023316 
023320 
023324 
023330 
023332 
023336 
023340 
023346 
023350 
023352 
023354 
023356 
023360 
023362 
023366 
023374 
023402 
023403 


MAINDECe1 1 eDERPTASA 

DERPTA,Pii T35 
6eo8 
(1) 
(1) 


800004 
oosee” 
00500? 
005267 
042767 
005327 
600001 
003031 
012737 
000001 
023274 
104400 
016746 
1044108 
104400 
013700 
001414 
022700 
001004 
022760 
001001 
000005 
004710 
000240 
000240 
000240 
000137 
005015 
0405208 

080 

377 


MACY31 27(657) 
END OF DRIVE 


155626 
155724 
155614 
160000 


023403 
000042 


023352 
477777 


005340 
047105 
051523 


377 


020104 
021440 


ISeAPR°75 171545 PAGE 44°89 


RiP PPP PPP iii iiirriiii ty) 
eSBTTL END OF PASS ROUTINE 


p®INCREMENT THE PASS NUMBER (8PASS) 

s®TYPE "END PASS @XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER) 
p*IF THERES A MONITOR GO TO IT 

peIF THERE ISN°T JUMP TO TST) 


SEOPs 
SCOPE 
CLR STSTNM 99ZERO THE TEST NUMBER 
CLR OTIMES 99 ZERO THE NUMBER OF ITERATIONS 
Inc OPASS spINCREMENT THE PASS NUMBER 
BIC €100000,8PASS p9DON°T ALLOW A NEG, NUMBER 
DEC (PC)o 99 LOOP? 
SEOPCTs ,WORD i 
BGT SDOAGN 99YES 
MOV (PC) eo, OC PC)¢o ppRESTORE COUNTER 
SENDCTs ,WORD 4 
sEOPCT 
TYPE e SENDMG poTYPE "END PASS #* 
MOV SPASS,°( SP) p9SAVE OPASS FOR TYPEOUT 
TYPDS 9960 TYPEeeDECIMAL ASCII WITH SIGN 
TYPE e SENULL ppTYPE A NULL CHARACTER 
SGET423 MOV 0042,R0 99GET MONITOR ADDRESS 
BEOQ SDOAGN p98RANCH IF NO MONITOR 
CMP @SENDAD,RO p98 MONITOR ACTi17? 
BNE GRESET ppNOreBRANCH (IT°S XXDP) 
CMP @°4,2(Re) ppYESeelS THIS THE LAST PASSE? 
BNE sENDAD peNOceMAKE ANOTHER PASS 
GRESETs RESET yp9CLEAR THE WORLD 
GENDADs JSR PC, (Re) 9960 TO MONITOR 
NOP s98AVE ROOM 
NOP sf OR 
NOP ppACTa4 
SDOAGN: JMP OeTSTi pp RETURN 


GENDMGs ,ASCIZ <45><12>/END PASS @/ 


GENULL! ,BYTE ©1,°1,0 p9NULL CHARACTER STRING 


eSBTTL SUBROUTINES 


pHERE 18 A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS, 
pON HITTING AN ERROR IF THE LOOP ON ERROR SWITCH Ig SET, THE 
pPROGRAM GOES BACK © USUALLY BACK TO THE BEGINNING OF THE TEST, 


SWHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT 
pTHE PROGRAM GOES BACK TO CAN BE CHANGED, 











1 
~ 





6822 
6623 
0624 
6625 
6826 
6627 
6620 
8629 
6030 
6631 


>a ©oondoeaeaeeememlUCc OmUlcUOCUCcCOCmUCOCUCcCOCUCOCmUC(Cwh TCC HOUlUrhOCUlcrhOUlcOhUlrOlhlUC!}lhCUrPBl 


MAINDEC*11eDERPTACA 
DERPTA,Pii 


023406 
023410 
023410 
023414 
023420 


023464 
023464 
023470 
023472 
023476 


023530 
023530 
023534 
023536 
023542 
023546 


023624 
023624 
023630 


023672 
023672 
023676 


023746 
023746 
023750 
023754 
023760 
023764 


024024 
024024 
024030 


024134 
024134 
024136 


SUBROUTINES 


005067 
104400 
000421 


013746 
104402 
104400 
000414 


013746 
104462 
104400 
104400 
000426 


104408 
660420 


104400 
000423 


104416 
062716 
012637 
104400 
000417 


104400 
600441 


104416 
012637 


004174 
023500 


6011108 


623700 


000002 
001106 
023766 


001110 


MACY11 27(687) 





ISeAPRe7S 17:45 PAGE 44°90 


pTHE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO AREY © 

i, IT MUST BE WITHIN THE TEST UNDER CONSIDERATION 

92. LOOP ON ERROR SWITCH MUST BE SET 

93, THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION 

pF THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION 
pTHE PROGRAM WILL REVERT TO NORMAL OPERATION, HOWEVER, IF LOOP ON 
pTEST SWITCH I8 SET AND THIS OPERATOR SELECTABLE SCOPE LOOP 16 USED 
sTHEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT 
sCOMES TO THE END OF THE TEST UNDER CONSIDERATION, 


’ 
pAFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH 238 PUT DOWN THEN 
pNORMAL OPERATION WILL CONTINUE, 


TESTAD: © FIRST ADDRESS OF TEST 
OPERSEL? 
CLR Ps SMAKE PROCESSOR STATUS ZERO 
TYPE oee4 peTYPE ASGCIEZE STRING 
BR 648 p9GET OVER THE ASCIZ 
pp ,ASCIZ <15>12>/THE PROGRAM WAS IN TEST NUMBER / 
6468 
MOV OOTSTNH,©(6P) ;GET READY TO TYPE TEST 
TYPoc pNUMBER 
TYPE 004 seTYPE ASGCIZ STRING 
BR 658 99GET OVER THE ASCIE 
one 99 ,ASCIE €15>€12>/THE LOOP BACK PC WAS / 
a 
areas OCSLPERR,©(SP)  ;GET READY TO TYPE LOOP BACK PC 
TYPE  OCRLF 
TYPE 0ee4 seTYPE ASCIZ STRING 
BR 666 99GET OVER THE ASCIE 
. 99 ,ASCIE <15><32>/8ET LOOP OW ERROR OR LOOP ON TEST SWITCH/ 
6661 
TYPE 0ee4 peTYPE ASCIZ STRING 
BR 678 99GET OVER THE ASCIE 
. 99 gASCIZ €15>¢12>/TYPE THE FIRST PC OF THE TEST/ 
6788 
TYPE 0904 eTYPE ASCIE STRING 
BR 6e8 99GET OVER THE ASCIE 
ae pp eASCIE €15><12>/ FOLLOWED BY A CARRIAGE RETURN /<46><42> 
6s 
RDOCT 
ADD 62, (8P) sGET LPADR 
MOV (8P)o,O0SLPADR 
TYPE 09% peTYPE ASCIZ STRING 
BR 696 p9GET OVER THE ASCIE 
99 ,ASCIE €15>¢42>/TYPE THE PC WHERE YOU WANT/ 
6968 
TYPE 0ee4 peTYPE ASCIZ STRING 
BR 708 p9GET OVER THE ASCIEZ 
: 99 ,ASCIEZ <15><¢12>/ THE PROGRAM TO LOOP BACK TO FOLLOWED BY A CARRIAGE RETUR 
ost 
ROOCT 
MOV CSP)¢,O06LPERR ;GET LPERR 


> 
} 






xy fjanthmhUlC<iC hHhOlCrhOhOhlhCc COifFhUcCitCr khihlcCemCr kf hmhmlCFA a afalUCfermlCHWClCHKWelClCCWUlmlCHWClCWCCCOWUmlCHCHCeeetCetetsial 


| 
9e0s8deeeeeeeeeeeeeseeseee ese eee 0@*@ 


MAINDEC*11¢DERPTASA MACY11 27(657) 
DERPTA,Pii 


024146 
024152 


024156 


024162 
024166 


0241708 
024170 
024172 
024174 
024176 
024202 
024206 
024212 
024214 
024216 
024220 
024222 
024224 
024226 


024236 
024242 


SUBROUTINES 
013746 001106 


005037 031132 
009037 802012 


005037 027132 


005037 002014 
000002 


010046 
010146 
010246 
012700 001624 
04270; 001674 
012762 000023 
013021 
005302 
001375 
012602 
012601 
012600 
000207 


012567 177766 
012504 


ISeAPRe75 


MOV 
TH 
CLR 
CLR 


CUR 


CLR 
RTI 


17845 PAGE 44°91 


@OSLPADR, ©( SP) 
18 CLEARS UP GARBAGE 
@enosyNc sCLEAR FLAG FOR HEADER ERROR COMMANDS 
oeTSsEecc pCLEAR FLAG FOR ECC TEST 
pWHEN ©177777 It Ig AN ECC TEST 
pWHEN 86 IT IS NOT AN ECC TEST 
OeTSECCG pEVEN IN AN ECC TEST EVERY CLOCK 
938 NOT TO GENERATE ECC 
IF 8377777 GEWERATE ECC 
sIF e@ DO NOT GENERATE ECC 
OeTESOTE pORIVE TIMING ERROR TEST 


eSBTTL GAVE REGISTERS ROUTINE 


IS SAVES THE CONTENTS OF ALL HARDWARE REGISTERS 
MEMORY LOCATIONS TAGED FROM "WC* TO *ECQ* 


18 18 DONE 60 THAT COMPARES ARE DONE WITH SAVED B seneptnms 


pAND NOT THE REGISTERS THEMSELVES, THIS WILL MAKE 
pERROR PRINTOUTS FOR GOOD AND BAD DATA ALWAYS DIFFRENT 


PUTREG! 
MOV 
MOV 
MOV 


1068 Mov 
D 


eSB 
sFLOAT A ON 


RO, °( SP) p9PUSH RO ON STACK 

Ris°( SP) pePUSH Ry OW STACK 

R2,°( SP) ppPUSH RQ OW STACK 

a PSTARTING ADORESS OF REG 

wc oR pSTARTING ADDRESS OF WERE SAVED 


sAnce ANWCOS/Bene pNUMBER OF REG, INTO A2 
+ ett wine pGAVE HARDWARE REG, 
2 
106 
(SP)¢,R2 99POP STACK INTO RQ 
CEP) oO, Ri p9POP STACK INTO Ry 
» hee a 99POP STACK INTO Re 


TTL FLOAT 1 AND @ 
E AND A ZERO THRU A DESIGNATED REGISTER 


pABSOLUTE ADDRESS OF REG, UNDER TEST I6 IN RE 


MASKG 86@ 
LERRs§ =O 
REGADR: @ 


BITsTs MOV 
MOV 


sBITS UNDER TEST 
pERROR HLT ADDRESS 


CRS), MASK pFETCH DATA MASK 
(RE)e, Rd sGET ADDRESS OF REG, UNDER TEST 





a aa aa apritité#nti na thetettesteeeseseeeé@ Aa 


| 


e < 
MAINDEC*1 1 eDERPTACA MACYL1 27(657) 1SeAPRe7S 171245 PAGE 44092 
° DERPTA,Pi1 FLOAT 1 AND @ P 
8904 024244 010467 177766 MOV R4, REGADR 
e 8905 024250 010567 177756 MOV RS, LERR 4GET ERROR RETURN ADDR, C 
0906 024254 062705 eecees ADD 04, RS sMODIFY RETURN ADDR, TO JUMP OVER RTS 
8907 024260 012703 eeecei MOV 81, R3 pINITIALIZE DATA PATTERN 
e 0908 024264 004767 00016 BLTis JSR PC, BLT2 y,OUTPUT FLOATING ZERO Gi 
8909 024270 004767 900012 JSR PC, BLT2  sOUTPUT FLOATING ONE 
8910 024274 000241 CLC 
e 0911 024276 006103 ROL R3 )SHIFT PATTERN r 
0912 024300 909703 TST a3 
0913 024302 001370 BNE BLT pBRANCH IF NOT COMPLETE 
e 8914 024304 000208 RTS RS pRETURN TO TEST ¢ 
8915 024306 905103 BLT2s COM RD :COMPLEMENT PATTERN 
0916 024310 012737 0624316 @24480 MOV @BLT3, O8LAD 4 S8ET SCOPE LOOP 
° 0917 024316 010337 001124 BLT}: MOV R3,O06GDDAT p8TORE GOOD DATA fi 
8918 024322 005137 024230 com OonMASK pAND WAGK WITH PATTERN 
0919 024326 043737 024238 001124 BIC @OMASK, @eeGDDAT sCLEAR THE REST 
° 8920 024334 0905137 024230 com OeMaAsK pRESTORE MASK ¢ 
0921 024340 013714 001124 MOV OSOGDDAT,(R4)  jOUTPUT TO REGISTER 
8922 024344 011437 001126 MOV (R4),0068BDDAT INPUT FROM REGISTER 
e 8923 02435 008137 024230 com OeMABK r 
0924 024354 043737 024238 001126 Bic GONASK,OOSBDDAT pAND MASK OUT RECEIVED DATA 
8925 024362 005137 024230 CoM OonAsK PRESTORE MASK 
e 0926 024366 023737 001124 001126 CMP @88GDDAT, COSBDDAT $28 DATA CORRECT ‘ 
0927 024374 001403 BEO 18 sBRANCH IF GOOD 
0928 024376 004777 177630 JSR PC, OLERR 360 TO REPORT ERROR 
° 8929 024402 104420 BCOPs pLOCAL SCOPE LOOP r 
8930 024404 900207 168 RIB pc 
8931 ~S8TTL CLEAR WENORY ROUTINE 
6932 < 
& 9933 
0934 
6935 ' THIS CLEARS ANY BLOCK OF MEMORY ¢ 
© 8936 ' FILLING IT WITH ANY DATA 
6937 5 
0938 } CALL < 
& 8939 ’ JSR RO,CLAREA 
8940 ’ % PSTARTING ADDRESS OF BLOCK 
8941 i x q 
€ 0942 H i sDATA TO BE FILLED 
8943 pRi WILL NAVE STARTING ADDRESS OF BLOCK TO BE FILLED 
0944 pR2 AFTER SUBTRACTION WILL HAVE TWICE NUMBER OF LOCATIONS q 
& 8945 pR3 WILL HAVE DATA TO BE FILLED 
8946 p70 AVOID DIVIDE ROUTINE TWO DECREMENT R2 WILL BE USED 
8947 024406 CLAREAs < 
& (2) 024406 010146 MOV Rip o(8P) p9PUSH Ri ON STACK 
(2) 024410 010246 MOV R2,°(8P) p9PUSH RQ ON STACK 
(2) 0246412 010346 MOV R3,°( SP) p9PUSH RD OW STACK < 
€ 8948 024414 012003 MOV (ROO, Ri sPROM 
8949 024416 012002 MOV (RO)o,R2 170 
6950 024420 012003 MOV (RO)O,R3 pDATA « 
& 0951 024422 160102 SUB RiyR2 pNO, OF LOCATIONS MINUS TWO 
8952 024424 062792 see0e2 ADD 02>R2 sGET TWICE NO OF LOCATIONS 
6953 024430 010321 18 MOV R3,(RID¢ pMOVE IN DATA « 
¢ 8954 024432 005302 DEC R2 
¢€ 
a 





J 
. 


MAINDEC 011 eDERPTAA 


DERPTA,Pil 


6955 
6956 
6987 
(2) 
(2) 
69se 


024434 
024436 
024440 
024442 
024444 
024446 


CLEAR MEMORY ROUTINE 


008302 
001374 
012603 
012602 
012601 
0002008 


MACY31 27(657) 


ISeAPRo75 


DEC 
BNE 
MOV 
MOV 
MOV 
RTS 


17845 PAGE 44093 


R2 
is 
(8P)¢,R3 
(SP)o,R2 
(SP)o,Ri 
RO 


SBRANCH IF NOT COMPLETE 
s9POP STACK INTO RI 
99POP STACK INTO RQ 
99POP STACK INTO Rg 
pRETURN 


\ 





> 


»” @ @ @ @ @ @ @ @ @ @ @ @ @ 6 @ 


MAINDEC*11eDERPTACA 
DERPTA,Pii 


6960 
6961 
6962 
6963 
6964 
6965 
0966 
6967 
6968 
6969 
6970 
8971 
6972 
6973 
6974 
6975 
8976 
6977 
6978 
8979 
6960 
6901 
6982 
6963 
6964 
e905 
6966 
6967 
968 
69869 
6990 
6991 
6992 
6993 
0994 
6995 
0996 
6997 
6996 
6999 
9000 
9001 
9002 
9003 
9004 
9005 
9006 
9007 
9008 
9009 
9010 
9011 
9012 
9013 


024450 


024452 
024460 
024462 
024466 


024470 
024474 
024500 
024504 


024510 
024514 
024520 
024522 


024524 
024530 
024536 
024542 


024550 
024552 
024560 
024562 
024566 


024570 
024872 
024600 
024602 
024606 


024610 


032737 
001402 
013716 
000002 


013701 
013702 
613703 
013704 


012712 
013712 
005011 
000207 


011637 
162737 
004737 
022737 


001423 
032737 
001004 
010137 
104026 


000413 
032737 
001003 
010137 
104026 


060463 





MACY31 27(657) 
LOCAL TRAPS 


001000 
024450 


001632 
001630 
001654 
001634 


000040 
001762 


002002 
000004 
024170 
004200 
004000 


177570 


002002 
001702 


001702 


001702 


ISeAPRe75 17:45 PAGE 44°94 


eSBITTL 
LADs C] 


T,SCOPs BIT 
BEG 
MOV 
iss RTI 


pEXAMPLE OF THE 
pTHIS WILL LOOP 
pMOV OX, 
Xs Boe 
p eon 
t mes 


eSBTTL 


CLOISKs MOV 
MOV 
MOV 
MOV 


MOV 
MOV 
CLR 
RTS 


LOCAL TRAPS 


6809, OeSWR 
is 
OOLAD, (8P) 


USE OF THE ABOVE 


BETWEEN Xs AND SCOP1 PROVIDED THERE 18 NO "NEWTST® 


@eLAD 
aoe 
@eoe 
eco 


CLEAD DISK ROUTINE 


OORHCS1, 
@eRHCS2, 
@eRHDSi, 
GCORHERI, 


6CLR, OR2 
OOUNIT,OR2 
ORI 

ec 


Ri pRi WILL BE CONTROL AND STATUS) 
R2 pR2 WILL BE CONTROL AND STATUS2 
R3 pR3 WILL BE DISK STATUS REGISTER, 
R4 pR4 WILL BE ERROR REGISTER 81 


pCLEAR ALL REG, 
PREINSTATE UNIT HO, 
pCLEAR FUNCTION BITS 


eSBTTL CHECK DISK STATUS ROUTINE 


pTHIS CHECKS DEVICE AVAILABLE (DVA) AND READY (RDy) IN RHCSI 
pAND CHECKS MEDIUM ON LINE (MOL), DEVICE PRESENT (DPR), DEVICE READY (DRY) IN RNDSS 


CHECKT?: MOV 
UB 
JSR 
CMP 


BEQ 
BIT 
BNE 
MOV 
ERROR 


BR 
iss BIT 
BNE 
MOV 
ERROR 


(8P),eePCUSER 
64, 00PCJSR 

PC, OOPUTREG 
@DVAIRDY, 00C8i 


38 

eDVA, oecsi 
is 

Ri, OeSBDADR 
26 


36 
@RDY,  00C8i 


26 
Ri, @esBOAOR 
26 


sSAVE PC OF JERO4 

GET PC OF JER 

sSAVE REGISTERS 

pRHCSi SHOULD WAVE DEVICE AVAILABLE 
pAND BE READY 

sBRANCH IF GOOD 

9BAD 80 TEST DEVICE AVAILABLE 
pBRANCH IF DVA THERE 

ADDRESS OF BAD REGISTER (RNCB4) 
pRHC63 DID NOT HAVE DEVICE 
pAVAILABLE RIGHT AT THE START 
pSRANCH TO NEXT COMPARE 

pTEST READY 

gif RDY THERE BRANCH 

pADDRESS OF BAD REGISTER (RHCS;) 
sRHCSi DID NOT HAVE READY 

RIGHT AT THE START 

sBRANCH TO NEXT COMPARE 


~’ 
ry 


» @ @ @ 08 8 @e 8@e# 8 8 8@®# 08 @# @# @ 0000 0 e080 84 





MAINDEC*11¢DERPTASA 
DERPTA,Pii 


9014 024612 
9015 024616 
9016 

9017 

9018 024620 
9019 024624 
9020 024630 
9921 024634 
9022 024636 
9023 024644 
9024 024646 
9025 024652 
9626 624654 
9027 024656 
9028 024664 
9029 024666 
9030 0824672 
9031 024674 
9032 024676 
9033 0247062 
9034 

9035 

9036 024704 
9037 

9036 

9039 

9040 

9041 

9042 

9043 024706 
9044 024712 
9045 024720 
9046 024724 
9047 

9048 024732 
9049 024734 
9050 024740 
9051 

9052 024742 
9053 024744 
9054 

9055 024752 
9056 024754 
9057 024760 
9058 

9059 024762 
9060 024764 
9061 024772 
9062 024774 
9063 025000 
9064 025002 
9065 025004 
9066 025012 
9067 025014 


610137 
104026 


013746 
042716 
622726 
001423 
032737 
001004 
010337 
104026 
000413 
032737 
001004 
010337 
104026 
000403 
010337 
104026 


000207 


011637 
162737 
004737 
032737 


601004 
010137 
164026 


000427 
032737 


001004 
010137 
104026 


000417 
032737 
001004 
010337 
104026 
000407 
032737 
001003 
010337 


MACYi1 27(657) 
CHECK DISK STATUS ROUTINE 


001122 


001724 
001100 
000600 
000400 


000200 
001122 


002002 
000004 
024170 
000200 


001122 


004000 


001122 


001724 


001724 


002002 
001702 


001702 


001724 


001724 


ISeAPR=75 


4ee 


76% 


MOV 
ERROR 


MOV 
BIC 
CMP 


1784S PAGE 44°95 


Ris @sSBDADR 
26 


OVVIPROG, (SP) 


SADDRESS OF BAD REGISTER (RHCS1) 
pRHCS3 HAD SOME BITS OTHER 

pTHAN DVA AND ROY SET 

pALL OTHER BITS SHOULD BE @ 
sGET RHDS) 

sCLEAR VV AND PROGRAMABLE BIT 


OOPRIDRY, (EP)e;RHDS’ SHOULD HAVE THESE SET 


78 


78 


DRY, 00081 


68 
R3,O0e¢6BDADR 
26 


78 
R3,@86BDADR 
26 


pc 


sBRANCH IF GOOD 

STEST ORIVE PRESENT 

IF MOL WAS THERE 60 BRANCH 

pADDRESS OF BAD REGISTER (RHDS4) 

sRHDSi1 DOES NOT HAVE DpR 

sBRANCH OUT 

sTEST DRIVE READY 

IF DPR WAS THERE 60 BRANCH 

pADDRESS OF BAD REGISTER (RHDS 3) 

SRHDSi DOES NOT HAVE Dry 

sBRANCH OUT 

pADDRESS OF BAD REGISTER (RDS) 

pRHDS, HAS SOME BITS OTHER 

pTHAN MOL, DRY, OPR, SET 

pALL OTHER BITS SHOULD BE @ 
pRETURN TO TEST HO, 


pTHIS CHECKS DEVICE AVAILABLE (OVA) AND READY (RDy¥) IN RHCSi 


pAND CHECKS MEDIUM ON LINE (MOL), DEVICE PRESENT (DPR), DEVICE READY (ORY) IN RHDS) 


CHECKEs MOV 


SUB 
JSR 
BIT 


BNE 
MOV 
ERROR 


BR 
BIT 


BNE 
MOV 
ERROR 


(SP), @ePCUSER 


04, 0ePCUSR 
PC, OOPUTREG 
@RDY,00C8i 


16 
Ric @eSBDADR 
26 


43 
eDVA,8eCSi 


28 

Ris OeSBDADR 
a6 

4a 
@ORY,00DS81 
38 
R3,0e6BDADR 
26 

46 

ODPR, 00081 


a6 
R39, CeSBOADR 


SSAVE Pc OF JERO4 

pGET PC OF JSR 

pSAVE REGISTERS 

pRHCS3 SHOULD HAVE DEVICE AVAILABLE 
gAND BE READY 

pBRANCH IF GOOD 

SFAILING REGISTER 

pRHCS, I6 IN ERROR 

pOOES NOT HAVE DVA, RDY 
pBRANCH 

pRHCSi SHOULD HAVE DEVICE AVAILABLE 
pAND BE READY 

sBRANCH IF GOOD 

SFAILING REGISTER 

pRHCS, I8 IN ERROR 

pDOES NOT HAVE DVA, RDY 
pBRANCH OUT 

pRHDS3 SHOULD HAVE OPR,DRY 
SBRANCH IF THERE 

SPFAILING REGISTER RHDSi 
pRHDS’ DOES NOT HAVE DPR, DRY 
pBRANCH OUT 

pRHDSi SHOULD WAVE DPR,ORY 
pBRANCH IF THERE 

SPAILING REGISTER RHDSi 


9 
3 
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MAINDEC ©11 eDERPTAA 
DERPTA,Pii 


9068 
9069 
9070 
9071 
9072 
9073 
9074 
9075 
9076 
9077 
9078 
9079 
9080 
9001 
9062 
9063 
9004 
9085 
9086 
9067 
9068 
9089 
9090 
9091 
9092 
9093 
9094 
9095 
9096 
9097 
9098 
9099 
9100 
9101 
9102 
9103 
9104 
9105 
9106 
9107 
9108 
9109 
9110 
9111 
9112 
9113 
9114 
9115 
9116 
9117 
9118 
9119 
9120 
9121 


025020 
025022 


025024 
025026 
025030 
025034 
025040 
025046 
025052 
025056 
025062 
025064 
025072 
025100 
025102 
025106 
025110 
025116 
025124 
025126 
025132 
025134 
025142 
025144 


104026 
000207 


177777 
010046 
016600 
010037 
162737 
012037 
012037 
010066 
012600 
013737 
033777 
001021 
005337 
001373 
013737 
033777 
001007 
005337 
001371 
017737 
104016 
000002 


MACY11 27(657) 
CHECK DISK STATUS ROUTINE 


000002 
001176 
000002 
0011708 
001172 
000002 


025024 
001172 


001174 


025024 
001172 


001174 
154030 


001176 


001174 
154070 


003174 
154044 


001126 


ISeAPRo75 


' 
TIMCNTS 
WAIT, Ts 


ERROR 
RTS 


’ 
ONE LOOP OR ONE COUNT @ $,15 MICROSEC WITH BIPOLAR MEMORY (MIN) 


17845 PAGE 44096 


= sRHDS1 DOES NOT HAVE DPR,ORY 
P 


WAIT LOOP 


ONE LOOP OR ONE COUNT @& 11,86 MICROSEC WITH CORE (MIN) 
WITH CORE ERROR 18 INDICATED AFTER ABOUT 65@ MILLISEC (MIN) 


177779 pWAITING COUNT 
MOV RO, (SP) pSAVE RO 
MOV 2(SP),RO pGET ADRESS OF REG, ADDERSS 
MOV RO, OeSTMPS WAT PCo2 IN STHP) 
SUB 02,006THPS pWAT PC FOR TYPEOUT 
MOV (RO) o, COG TMPS pWAIT REGISTER ADORESS 
MOV (RO) o, O06 TMP) pWAIT OW BIT 
MOV RO» 2(8P) pRESTORE RETURN ON STACK 
MOV (SP)¢,RO pRESTORE RO 
MOV OOTINCNT, COSTHNPD pTEMPORARY COUNT 
BIT OOOTHPL,OSTMPO F186 REQUIRED BIT THERE? 
BNE 28 pBRANCH IF YES 
DEC OosTHP2 sCOUNT 
BNE 16 sBRANCH IF NOT TINE UP 
MoV OOTINCNT, BOSTNPD pTEMPORARY COUNT 
BIT OOCTMPL,OGTHPO 418 REQUIRED BIT THERE? 
BNE as sBRANCH IF YES 
DEC OOSTNP2 scount 
BNE 36 pSRANCH IF NOT TIME UP 
MOV OSTNPO, COSBODAT PREGISTER CONTENTS 
— 16 SWAITED ON BIT FAILED TO SET 
R 
CALL FOR THE ABOVE WAITLOOP I8 
MOV PY TPS) A CONTAINS REGISTER ADDRESS 
° 2 ~ pHENCE X8 WILL HAVE ABSOLUTE REG, ADR, 
2 eS eo 
eS bad e 
WAT 
@ pABSOLUTE REG, ADORESS UNDER WAIT 
eWORD @ BIT WAITED FOR 
pCONTINUE 


pTHIS 18 A SUBROUTINE TO SAVE REGISTERS 
pIN THE REGISTER TABLE TO ANY LOCATION 
eSBTTL SAVE ROUTINE 

pTHE CALL 18 


pJER 
pPROM 
sTO 


RO, OOSAVER 





MAINDEC*11eDERPTASA 
DERPTA,P1ii 


9122 
9123 
9124 
(2) 
(2) 
(2) 
9125 
9126 


025146 
025146 
025150 
025152 
025154 
025156 
025160 
@25162 
025164 
025166 
025170 
025172 
025174 
025176 


025200 
025206 
025214 
025222 
025226 
025232 
025240 
025244 
025250 
025252 


025254 


025260 
025266 
025274 
025300 
025306 
025312 


025320 
025324 
025330 


MACYS1 27(657) 


SAVE ROUTINE 


010146 
010246 
010346 
012001 
012002 
012003 
013122 
005303 
001375 
012603 
012602 
012601 
000200 


012737 
412737 
4112737 
005037 
005037 
012767 
005037 
004537 
031016 
032716 


004737 


012777 
012777 
112746 
112766 
012677 
012777 


005077 
004737 
013731 


004737 


610000 
060001 
000001 
031022 
031024 
000044 
631026 
025646 


024470 


177730 
003130 
000001 
o00ee: 
194324 
014000 


154320 
024524 
002036 


030706 


SAVER! 


031016 WRCHHDs 
031021 
031020 


000001 
154322 


ISeAPRe75 


pNUMBER OF WORDS SAVED 


MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
DEC 
BNE 
MOV 
MOV 
MOV 
RTS 


17845 PAGE 44°97 


Ri,°(SP) 
R2,°( SP) 
R3,°( SP) 
CROIO,Ri 
CRO) o,R2 
(RO)O,R3 
OCRI)O,(R2)¢ 
R3 


18 
(SP) o,R3 
(SP)¢,R2 
(SP)o,R3 
RO 


s9PUSH Ri ON BTACK 
p9PUSH RQ ON STACK 
s9PUSH R3 ON STACK 
sFROM 

TO 

pNUMBER 

pSAVE REGISTER CONTENTS 
sCOUNT 

sBRANCH IF NOT DONE 
99POP STACK INTO RZ 
99P0P STACK INTO RZ 
99POP GTACK INTO Ry 


eSBTTL WRITE CHECK ROUTINE 
pTHIS IS A SUBROUTINE TO DO WAITE CHECK HEADER AND DATA 
gCYLINDER @, TRACK 1, SECTOR 4, KEYS @ 


sTHESE ARE TO SET UP FOR DISKLESS USE ONLY 


MOV 
MOVB 
Movs 
CLR 
CLR 
MOV 
CLR 
JSR 
CYL 
WRC 


OFNTI2, OOCYL 


61, CeSECOTRe 


04 ,0e8ECOTR 
OOKEY, 
OeKEY2 

636, ,DAWORD 
OaX 

RS, OeCRC 


pCYLINDER @ FORMAT 46 BIT WORDS 
pTRACKa,4 

pSECTORG, 

sKEYi8@ 

pREY28@ 

pNO OF DATA WORDS 

pTHIS I8 A READ OPERATION 

960 TO CALCULATE Cre 


pTHESE ARE REGULAR SETUPS 


JSR 


MOV 
MOV 
MOVE 
MOVE 
MOV 
MOV 


CLR 
JSR 
MOV 


JSR 


PC @OCLOISK 
0°40, 0 ORHKWC 


6i1,°¢CsP) 
@101¢SP) 


(8P)¢,ORHDST 


9SET UP GENERAL REGISTERS 
pAND CLEAR DISK REGISTERS 
936 DATA WORDS 4 HEADER WORDS 


pSTARTING ADDRESS OF READ BUFFER 


sSECTORS) 
pTRACKS, In UPPER BYTE 
sTRACKay, SECTOR®, IN RHDST 


OFMTZZIECI,ORHOF 436 BIT WORDS 


ORHCA 
PCe @OCHECKT 
OeWRCHDT, ORI 


PC, @eCOMHD 


pECC CORRECTION INHIBIT BECAUSE 
sECC LOGIC 16 NOT CHECKED YET 
ICYLINDERSO 

CHECK FOR DVA, ROY, MOL, DPR, DRY 
pWRITE CHECK HEADER AND DATASS2 
pstNTO RHCSs 

pWRITE CHECK HEADER AND DATA 
pSAME AS READ NEADER AND DATA 





r~a a hh &e fhlCKlmlC KC RlmlCKRrmlC RWC RKlmlC KDC RKUmlCDlmlCKWmC DWC KUlmlC OHWC DUC OWCDlCM 





MAINDECe1 1 eDERPTASA 
DERPTA,Pii 


9171 
9172 
9173 
9174 
9175 
9176 
9177 
9178 


025342 
025342 
025344 
025346 
025350 
025352 
025354 
025356 
025360 
©25362 
025366 
025372 
025374 
025376 
025400 
025404 
025406 


025410 
025414 
025420 
025424 
025430 
025432 
025436 
025440 
025444 
025446 
025452 
025456 
025462 
@25464 
025466 
025470 
025470 
025472 
025474 
025476 
025500 
025502 


MACY11 27(657) 


WRITE CHECK ROUTINE 


000207 


010146 
010246 
010346 
010446 
010546 
012001 
012002 
012003 
012067 
012067 
011000 
010304 
005204 
010437 
022122 
001426 


014137 
014237 
160337 
008737 
001003 
004777 
000402 
004777 
022122 
013746 
042716 
022726 
001402 
003303 
001344 


012605 
012604 
012603 
012602 
012601 
000200 


001124 
001126 
031136 
001774 


153532 
153526 
1778768 


477177 
000200 


ISeAPRe75 


RTS 


eSBTTL COMPARE ROUTINE 


17:45 PAGE 44096 


PC 


SRETURN TO WRITE CHECK TEST 


pTHIS 18 A SUBROUTINE TO COMPARE TWO BLOCKS IN MEMORY 


Ri HAS GOOD DATA BUFFER ADDRESS 
pR2 HAS TEST DATA BUFFER ADDRESS 


pSTMPO HAS ADDRESS OF RETURN OW ERROR TO PRINT HEADER 
pSTMP1 HAS ADDRESS OF RETURN ON ERROR TO PRINT DATA 
pR3 HAS NUMBER OF WORDS TO BE COMPARED 

gpR4 HAS ONE MORE THAN NUMBER OF WORDS TO BE COMPARED 


MOV 
MOV 
MOV 
MOV 


Ri,°(SP) 
R20°( SP) 
R3,°( SP) 
R4,°( SP) 
RS, °( SP) 
CRO) O, RI 
CRO)O,R2 
CRO)O,R3 
(RO)o, 6 TMPO 
(RO)o, STHMPS 
CRO), RO 
R3,R4 


Ra 
R4,O0ERWORD 
 paceedanmcnay 


@(R1),006GDDAT 
©(R2),O086BDDAT 
R3,@GERWORD 
OoERFLGS 


ae 
PC, OS TNPO 
58 


PC, OGTMP, 

(Ride, CRI 
OeSWR, °C SP) 
0°C600, (SP) 
88WO7,(SP)¢ 


CSP)o,RS 
(SP) o,R4 
(CSP)o,R3 
(SP)¢,R2 
(8P)¢o,Ri 
RO 


ppPUSGH Ri OW STACK 

p9PUGH RQ ON STACK 

99PUSH RZ OW STACK 

pePUSH RQ OW STACK 

p9PUGH RG ON STACK 

pADDORESS OF GOOD DATA BUFFER 
pADDRESS OF TEST DATA BUFFER 
9NO OF WORDS TO BE COMPARED 
pRETURN OW ERROR TO PRINT HEADER 
PRETURN ON ERROR TO PRINT DATA 
pRETURN OW NO ERROR 

94O OF WORDS TO BE COMPARED 


POR ERROR WORD HO 
sCOMPARE GOOD WITH TEST DATA 
pBRANCH IF GOOD 


$G00D DATA 

sBAD DATA 

sERROR WORD NO, 

pANY ERRORS ALREAY THERE 

sBRANCH IF YES 

pRETURN TO PRINT HEADER 

pBRANCH TO AVOID PRINTING NEXT ERROR 
pRETURN TO PRINT DATA 

pUNDO @(R4) AND (RZ) FOR ERRORS 
sGET SWITCH SETTING 

sKEEP ONLY SWITCH 7 AND 6 

938 7 SET AND & RESET 

pSRANCH OUT IF YES 

sCOUNT 

pBRANCH IF ALL NOT DEVICE 


p9POP STACK INTO RS 
99POP STACK INTO RE 
pePOP STACK INTO RZ 
99PO0P STACK INTO RQ 
ppPOP STACK INTO Ry 
pRETURN TO MAIN PROGRAM 


59 e@ ee 8 OF 


MAINDEC ©1 1 eDERPTASA 
DERPTA,Pi1 


025504 
025512 
025520 
025526 
025532 
025536 
025544 


925550 
025554 
025556 


025564 
025572 
0256008 
025604 
025612 
025616 


025644 


COMPARE 


012737 
112737 
412737 
005037 
005037 
012737 
005037 


004537 
031016 
032716 


004737 


012777 
012777 
112746 
112766 
012677 
012777 


005077 
004737 
013711 
004737 


000207 


MACY31 27(687) 


ROUTINE 


010000 
000001 
000001 
031022 
031024 
o0ee4e 
031026 


025646 


024478 


177740 
063130 
000001 
000001 
194020 
014300 


154014 
024524 
002034 
030706 


@31016 WRCHDAS 
031021 
031020 


031076 


154032 
154026 


o0eee1 
154016 


ISeAPRe7S 
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sTHIS I8 A SUBROUTINE TO DO WRITE CHECK DATA 
sCYLINDER @, TRACK 1, SECTOR 1, KEYS O 


p THESE 
MOV 
MOVB 
MOVB 
CLR 
CLR 
MOV 
CLR 


JSR 
CYL 
were 
s THESE 


JSR 


RTS 
eSBTTL 


ARE TO GET UP FOR DIGKLESS USE ONLY 
OFHT2Z2, 0OCYL sCYLINOER @ FORMAT 16 BIT WORDS 
01 ,00SECOTROs ps TRACKS4 


61, 0@6ECOTR SECTORS; 
@oKEY; sKEYia@ 
OeKEY2 sKEY2e@ 


@32.,06DAWORD 4NO OF DATA WORDS 
Box pTHIS 18 A READ OPERATION 


RS. @eCRC 9G0 TO CALCULATE CRC 


ARE REGULAR SETUPS 


PC OOCLDISK 9SET UP GENERAL REGISTERS 

AND CLEAR DISK REGISTERS 
6°32,.@RHWC 936 DATA WORDS 4 HEADER WORDS 
OREINTO,ORHBA STARTING ADDRESS OF READ BUFFER 
610°(8P) sSECTORG, 
#101¢8P) - gTRACKe, IN UPPER BYTE 
(SP), ORHDST pTRACKa,, SECTORS, IN RHDST 
OFMTZZ2IECI, ORHOF 46 BIT WORDS 


pECC CORRECTION INHIBIT BECAUSE 
pECC LOGIC 3s NOT CHECKED YET 


ORHCA sCYLINDERG® 

PC, OOCHECKT sCHECK FOR DVA,RDY, MOL, OPR, ORY 

@oWRCHEK, ORY SWRITE CHECK DATASS@ INTO RHCS, 

BC, BOCOMHD pURITE CHECK HEADER AND DATA 
SGAME AS READ HEADER AND DATA 

Pc PRETURN TO WAITE CHECK TEST 


CRC GENERATION ROUTINE 


pTHIS IS A SUBROUTINE TO CALCULATE CRC FOR THE FOUR 
pHEADER WORDS AND STORE THEN IN *WCRC® AND *G6CRC® 

pRi © REGISTER FOR CRC, INCREMENTED CAC VALUE 18 HERE 
pR2 © THIS HAS BIT POSITION 2 VALUE C 

pR3 © THIS HAS BIT POSITION 46 1,f, — BIT VALUE B 
pRQ4 © THIS HAS BIT a 46 VALUE E£ 


pOTMPe 
pOTMP2 
gOTMPS 
pOTMP4 
peThps 


sPETCH 
BeD 
sc eB 


© NUMBER OF © 

e NUMBER OF BITS PER WORD © 16 

© TEMPORARY REG, 

© TEMPORARY REG *s0 yore CARRY 
© THIS HAS DATA BIT VALUE D 


DATA BIT D 
XOR 16 
XOR 2 





f 
89 e@ 68 8 @ 


) 


€ ¢€ 
MAINDEC®4 1 eDERPTACA MACY13 27(657) 1SeAPR7S 17945 PAGE 440100 
e DERPTA, P11 CRC GENERATION ROUTINE € 
9269 s © B XOR 15 
° 9270 pROTATE RIGHT ONE POSITION € 
9271 98 GOES TO POSITION 4 
9272 1¢ GOES TO POSITION 3 
e 9273 yE GOES TO POSITION 16 € 
9274 pREPET 64 TINES 
9275 ;CALL «sR RS, 8eCRC 
° 9276 yx pFIRST LOCATION AT 
9277 Y #PUT CRC IN WCRC FOR READ GCAC FOR WRITE 
2 
e 9279 025646 cRcs 
(2) 025646 010046 MoV RO, °(8P) ))PUSH RO OW STACK 
9200 025650 912500 MOV (RS)0,RO }GET POINTER TO CYL NO, 
° 9201 025652 010146 NOV Ri,e(8P) p9PUSH Ri OW STACK 
(2) 025654 010246 MOV R2,°(8P) s9PUBH A2 OW STACK 
(2) 0259656 010346 MOV R3,°(8P) p9PUSH RI OW STACK 
e (2) 028660 010446 MOV R4,°(8P) p9PUSH R4 ON BTACK 
9202 025662 eeSeei CLR Ri pCLEAR WORKING LOCATION 
9203 0625664 905037 001202 CLR GostuPs 
e 9204 025670 012737 @80004 901170 MOV 04, 008TNPO pWORD COUNT 
9205 025676 012037 001176 1688 = MOV (RO)*,O00TKPS TEMPORARY WORD STORAGE 
9206 025702 012767 @90020 153264 MOV 016,,8TMP2 sBiT CouNT 
e 9267 025710 013737 061176 901200 MOV OOSTNP3,C0OTHPG ; TEMPORARY WORD STORAGE 
9208 025716 006037 001176 1588 ROR OoeTNPD sGET LSB INTO *ce 
9209 025722 006037 001202 ROR OosTuPS sGET ABOVE *C* INTO eTKPS 
e 9290 025726 632761 e0eee BIT eBITO, Ri $28 POSITION 48 HIGH 
9291 025732 901403 tT) 15 pBRANCH IF POBITION 46 LOW 
9292 025734 012703 seeee0 MOV OBITIS,R3 9GET POSITION 16 
e 9293 025740 oee4ei BR 28 
9294 025742 05003 188 CLR RR sGET POSITION 16 
9295 025744 063703 001202 263 ADD OosTNPS, RD pXOR POSETION 46 WITH D 
9296 170 GIVE 8 
€ 9297 025750 032701 eseece ait eBITI4, RI $28 POSITION 2 HIGH 
9298 025754 001403 BEQ 35 pBRANCH IF POSITION 2 LOW 
e 9299 025756 012702 1ee0e0 MOV OBIT15,R2 1GET POSITION 2 
9300 025762 900403 BR 4s 
9301 025764 905002 388 CLR R2 sGET POSITION 2 
e 9302 025766 960302 46s ADD R3,R2 sxOR 8 wien POSITION 2 
9303 170 GIVE C- 
9304 025770 032701 90002 Bit eBIT1, Ri p18 POSITION 19 NIGH 
e 9305 025774 901403 BEQ 88 pBRANCH IF POSITION 48 LOW 
9306 @25776 012704 ieese0 MOV eBIT15,R4 $GET POSITION 45 
9307 026002 e6e4e1 BR ba 
9308 026004 e05004 581 CLR na 9GET POSITION 15 
9309 026006 960304 683 ADD RB, RE pXOR POSITION 45 WITH B 
9310 370 GIVE & 
9311 026010 906037 001200 ROR OoeTnPs )GET LSB INTO "Ce 
9312 026014 e96001 ROR ai sGET ABOVE C INTO Ry 
9313 026016 905703 78T Ra sTeeT B 
9314 026020 100403 BMI 78 pORANCH 2F Boi 
9315 026022 642701 190000 BIC OBITIS/ Ry p8ET B IN POSITION 1 
9316 026026 900402 BR 108 
9317 026030 082701 190000 768 Bis eBIT15,Ri pSET B IN POSITION 3 
9318 026034 905702 108s) 88 R2 pTEst C 








9319 
9320 
9321 
9322 
9323 
9324 
9325 





“@@oeeeee@eWeeeeeste*®@e 


026036 
026040 
026044 
026046 
026052 
0260584 
026056 
026062 
026064 
026070 
026074 
026076 
026162 
026104 
026106 
026110 
026112 
026114 
026116 
026120 


026122 
026122 
026124 
026126 
026130 
026134 
026140 
026144 
026146 
026150 
026152 


026160 
026162 


026164 


MAINDEC o11 eDERPTACA 


DERPTA,Pil CRC GENERATION ROUTINE 


100403 
042701 
000402 
052701 
005704 
100403 
042701 
800402 
052701 
005337 
001310 
005337 
001275 
010135 
012604 
012603 
012602 
012601 
012600 
000205 


010046 
010146 
010246 
012700 
012701 
012792 
610022 
005301 
001375 
012701 


005301 
001375 


012737 


MACY11 27(657) 


000001 
001174 


001170 


177400 
000400 
032734 


010008 031016 


IS cAPRe7S 


1368 
1468 


CALL 
SETDSKs 


sTHIS IS A SUBROUTINE TO SET UP THE SIMULATOR DISK FOR 


17945 PAGE 440101 


416 
OBITI3,Ri 
128 
OBITI3, Ri 
R4 

138 
OBITe, Ri 
148 
oBITe,Ri 


Ris OCRS)o 
(SP)e,R4 

(SP)¢,R3 

(SP) o,R2 

CSP)o,R4 

(SP)o,RO 

RS 


sBRANCH IF Cai 
9GET C IN POSITION 3 


GET as POSITION 3 


pBRANCH IF Ee3 
sGET E IN POSITION 46 


sGET £ IN POSITION 16 


pBRANCH IF 46 NOT DONE 
pWORD COUNTER 
pBRANCH IF 4 NOT DONE 
sPUT CRC WHERE DESIRED 
99POP STACK INTO RE 
pp9POP STACK INTO RQ 
pp9POP STACK INTO RQ 
psPOP STACK INTO Ry 
p9POP STACK INTO Re 


pCYLINDER © (16 BITS PER WORD) 


pTRACK 4, SECTOR 3 


pREYa 4 
pKEY2 


a 
sCRC THROUGH THE JSR RS, OeCRC 


9256 WORDS OF 177400 
PC, @eSETDSK 


J8R 


MOV 


RO» °( SP) 
Rio°( SP) 
R2,°( SP) 


6177400,Re 


0286,,R4 
eDISK,R2 
ROe (R26 
LD | 


18 
O17 eo RS 
(R2)¢ 


OFMT22,00CXL 


99PUGH RO ON STACK 
eePUSH Rg ON STACK 
sePUSH RQ OM STACK 
pOATA IN THE OIEK 


pSTART OF SIMULATOR DISK 
sMOVE IW DA 
sCOUNT FOR 
sORANCH IF 256 NOT COMPLETE 
92 ECC WORDS, 4 DATA GAP 
914 TOLERANCE G 
sCLEAR ECC, DATA 
pTOLERANCE GAP 


AP 
GAP AND 


pORANCH IF NOT COMPLETE 
pNOW SET UP FOR DISKLESS USE 


CYLINDER @ (16 BIT WORDS) 


9366 
9367 
9368 
9369 
9370 
9371 
9372 
9373 
9374 

(2) 

(2) 
9375 
9376 
9377 
9378 
9379 
9380 
9361 
9362 
9383 
9364 
9365 
9386 
9387 
9368 
93869 
9390 
9391 
9392 
9393 

(1) 

(3) 

(4) 
9394 
9395 
9396 
9397 
9398 
9399 
9400 
9401 
9402 
9403 
9404 
9405 
9406 
9407 
9408 
9409 
9410 
9411 
9412 
9413 
9414 





026172 
026200 
026206 
026214 
@26222 
026230 
026234 
®26236 
026240 
026242 
026244 
026246 


026280 
026254 
026262 


026266 


026272 
026276 
026300 
026304 
026306 
026310 
026314 
026316 
026322 


026344 
026350 


MAINDEC #11 eDERPTA®A 
DERPTA,Pii 


412737 
112737 
012737 
012737 
016737 
004837 
031016 
032716 
012602 
012601 
012600 
000207 


010037 
162737 
004737 


004767 


011037 
012011 
012077 
112046 
105720 
112066 
105720 
012677 
012077 


012077 
012037 


012777 


005037 
004737 


MACY11 27(657) 
CRC GENERATION ROUTINE 


000001 
000001 
000001 
000001 
152152 
025646 


002002 
000004 
024470 
176232 
001202 


080001 


153314 
153276 


153274 
031026 


001774 
030706 


031021 
031020 
031022 
031024 
031076 


153276 


ISeAPP 275 


MCVB 
MOVB 
MOV 
MOV 
MOV 
JSR 
CYL 
wCRC 
MOV 
MOV 
MOV 
RTS 
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61, @eSECOTRe1 
¢1,@eSECOTR 
61,@eKEY) 
@1,@8KEY2 
256,,@@8DAWORD 
R5,0eCRC 


(SP)¢,R2 
(SP)o,R1 
(SP)¢,Re 
pc 


p TRACKS 

sSECTOR®\ 

pKEYie1 

pKEYQe4 

yNO, OF DATA WORDS 
960 TO CALCULATE Cre 
sFIRST CRC WORD 
sPUT CALCULATED CrcC 
s9POP STACK INTO RQ 
9pPOP STACK INTO Ry 
pp9POP STACK INTO RQ 


#THIS IS A SUBROUTINE TO CHECK HEADER COMPARE ERROR 
s(BIT 67) AND CRC ERROR (BIT 06) 


pCALL JSR RO, OSHCCRCE 


CLR 
JSR 


COM 


RO, OePCJSR 
64, 06PCUSR 
PC, @SCLOISK 


PC, CHECKT 


(RO), @esTMPS 
(RO)¢, ORI 
(RO)¢,@RHCA 
(ROO, °C SP) 
(RO)¢ 
(RO)o,1(8P) 
(RO) 
(8P)¢,@RHDST 
(RO) o, ORHWC 


(RO) o, ORHBA 
(RO) o, 00x 


sCOMMANDeREAD HEADER AND DATA 
’ eWRITE DATA 

pCYLINDER 

pSECTOR 

p TRACK 

pWORD COUNT 

pRHBA BUFFER START 

pISWRITE DATA @@READ 

pHa} HEADER CHECK, He@® CRC CHECK 


pSAVE PC OF JERO4 
sGET PC OF JER 
pINIT AND SETUP GENERAL REG, 


pCHECK DVA, ROY, DPR, DRY 


pSAVE COMMAND 

COMMAND 

sCYLINDER 

SECTOR 

pUP DATE Roe 

ps TRACK 

pUPDATE Ro 

pTRACK SECTOR 

pNO, OF DATA WORDS +4 HEADER 
sIF A READ HEADER AND DATA 
pSTARTING ADDRESS OF BUFFER 
pX@@ READ HEADER AND DATA 
pX@3 WAITE DATA 


OFPMT2Z2LECL,@RHOF 916 BITS PER WORD 


OoERFLGS 
PC. @OCOMHD 


pECC CORRECTION INHIBIT 
sCLEAR ERROR FLAG 
psCOMMAND 


IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
pFROM THE "“COMHD® ROUTINE THAT MEANS SECTOR GAP, 
sFIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 
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hb 


MAINDEC*11¢DERPTASA MACY11 27(657) iSeAPRe7S 17345 PAGE 44103 
DERPTA,Pi1 CRC GENERATION ROUTINE 
9415 pSYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 
9416 pDETECTED 
9417 pHEADER AND DATA ARE TO BE CHECKED, 
9418 0626354 604737 624170 JSR PC, OOPUTREG pSAVE REGISTERS 
9419 026360 005737 001774 TST OeERFLGS pANY ERRORS ALREADY THERE 
9420 626364 001034 BNE 108 pSRANCH IF YES 
9421 026366 605737 631626 T6T eK 938 THIS A READ 
9422 026372 001015 BNE 38 93F A WRITE DATA BRANCH 
9423 
9424 pNOW THE READ SUFFER WILL BE CHECKED 
9425 pHEADER GHOULD BE COMPLETELY READ AS WRITTEN 
9426 gNO DATA WORDS SHOULD BE READ 
9427 pREINTO BUFFER HAS BEEN FILLED WITH @ 
pees p¥RFROM BUFFER HAS BEEW FILLED WITH EXPECTED DATA 
942 
9430 626374 604037 625342 JSR RO, @OCOMPAR CHECK 
9431 026400 002064 WRF ROM 9G00D DATA 
9432 026402 003130 REINTO pTESt SUFFER 
9433 €26404 000400 256. 94 HEADER 382 DATA 
9434 626406 0626414 is pRETURN POINT FOR ERROR HEADER 
9435 026410 626420 ae pRETURN POINT FOR ERROR DATA 
9436 026412 626456 108 pRETURN FOR GOOD COMPARISON 
9437 026414 104004 iss ERROR 4 sREAD NEXT ERROR § 
9438 026416 000207 RTS pc pRETURN TO COMPARIGON SUBROUTINE 
9439 026420 104005 28% ERROR § sWORD HO 4 THRU @ ARE 
9440 pHEADER WORDS AND HENCE 
9441 pSHOULD BE READ AS WRITTEN OF 
9442 pD38K, WORD HOS, S ONWARDS 
9443 pSHOULD NOT BE READ AND HENCE 
9444 pREAD INTO BUFFER 
9445 sSHOULD BE UNCHANGED 
wee @26422 600207 RTS 4 pRETURN TO COMPARISON 
Gad 
ee 026424 000414 BR ies sJUMP OUT 
944 
9450 pNOW THE DISK WILL BE CHECKED 
9451 pNO DATA SHOULD BE WRITTEN 
9452 pREINTO BUFFER HAS BEEN FILLED WITH EXPECTED DATA 
9453 pOISK HAS BEEN FILLED WITH 177400 
9454 pWRFROM HAS BEEN FILLED WITH 335252 
9455 
9456 026426 004037 0625342 36s JSR RO, COCOMPAR 1CHECK 
9457 026432 603136 REINTO 96000 DATA BUFFER 
9458 026434 0632734 DI6K sTEST BUFFER 
9459 026436 900400 rit 
9460 026440 026446 48 pRETURW POINT FOR ERROR HEADER 
9461 026442 0626452 $6 : pRETURN POINT FOR ERROR DATA : 
9462 026444 0626456 108 pRETURN POINT FOR GOOD COMPARISON 
9463 026446 104004 aor ERROR 4 pREAD NEXT ERROR S 
9464 026450 006207 RTS pc pRETURN TO COMPARISON SUBROUTINE 
9465 026452 104008 36s ERROR § pWORD WO ARE ALL DATA 
9466 pWORDS THE SHOULD NOT 
9467 pHAVE BEEN CHANGED BY THE 
9468 pWRITE COMMAND 


Bi 


®» @ @8 @ @ 80 0000000000000 e0ee0 @®@ 





9522 pTHE COMMAND O8 JSR PC, OOMIDOLE 


Cc Cc 
MAINDEC*1 1 eDERPTASA MACYI1 27(657) 1SeAPRe7S 17945 PAGE 440104 

e DERPTA,Pil CRC GENERATION ROUTINE e 

9469 026454 000207 RTS PC pRETURN TO COMPARISON SUBROUTINE 

9470 026456 005720 1068 T8T CRO) s28 THIS A HCRC ON HCE CHECK? € 
& 9471 026460 001442 BEO ry) pBRANCH IF HCRC 

9472 026462 0622737 ©00072 001202 CMP 072, 008TMPS p18 THIS A READ COMMAND 
e 9473 026470 001417 BEO 118 pBRANCH IF YES € 

9474 026472 017737 153136 001126 MOV ORHER{,@OSBDDAT TEST DATA 

9475 @2650@ 622737 080200 001126 CMP OHCE,@OSBDDAT  jONLY HEADER COMPARE BIT? 

9476 pSHOULD BE SET € 
€ 9477 026506 003470 BEOQ 8 pORANCH IF GOOD 

9478 026510 013737 001634 @24234 MOV @ORHERS,COREGADR sREGISTER ADDRESS RHERI 

9479 026516 012737 @00200 001124 MoV GHCE,@88GDDAT  4G00D DATA € 
& 9480 026524 104027 ERROR 27 pAFTER AN ERROR ON THE 

9461 pHEADER ONLY HCE SHOULD 

9482 026526 600460 BR 78 p82 SET € 
@ 9403 026530 1168 

9404 026530 017737 153100 001126 MOV ORHER1, COSBDDAT sTEST DATA 

9405 026536 622737 100200 001126 CMP ODCKIHCE, O@SBDDAT pOWLY HEADER COMPARE BIT? € 
© 9486 pSHOULD BE SET 

9407 pOCK 28 SET BECAUSE ECC I8 NOT READ 

94608 026544 001451 ry i) iT) pORANCH IF GOOD € 
& 9489 026546 613737 601634 024234 MOV O@ORHER] ,OOREGAOR ;REGIGTER ADDRESS RHER 

9490 026554 0612737 100200 003124 MOV ODCKI NCE, @98GDDAT pGOOD DATA 

9491 ©26562 104027 ERROR 27 pAFTER AN ERROR ON THE € 
& 9492 ! pHEADER ONLY HCE SHOULD 

9493 026564 000441 BR 19 908 Set 

9494 026566 022737 900072 001202 68: CMP 072,006TMPS ‘38 THIS A READ COMMAND? € 
@ 9495 026574 001417 BEO 128 pBRANCH IF A READ 

9496 026576 017737 183032 001126 MOV @RHER{,COSBDDAT sTEST DATA 

9497 026604 ©22737 600400 001126 CMP OHCRC,O8GBDDAT ONLY CRC ERROR SHOULD BE THERE € 
e 9498 026612 001426 BrO 78 

9499 026614 013737 001634 024234 MOV OORWERI,COREGAOR REG, ADOR © RHER 

9500 026622 012737 900408 001124 MOV GHCRC,O86GDDAT 96000 DATA € 
et 9501 026630 104027 ERROR 27 pAPTER A CRC ERROR ONLY CRC 

9502 pSHOULD BE SET 

9503 026632 000416 BR 78 pORANCH OUT € 
& osee 026634 017737 192774 001126 1288 MOV ORHER),COOBDDAT ;TEST DATA 

50 

9506 026642 622737 100408 601126 CMP @DCKIMCRC,@@SBDDAT/HCRC AND DOCK SHOULD BE SET € 
e 9507 pOCK 18 SET BECAUSE ECC I8 NOT READ 

9508 026650 0601407 BEO 18 pBRANCH IF GOOD 

9509 @26652 012737 190400 001124 MOV @DCKIHCRC,@e6GDDAT)GOOD DATA € 
& 9510 026660 013737 001634 024234 MOV OORHERL,COREGADR|FAILING REGISTER RNER 

9511 026666 104027 ERROR 27 pAFTER A CRC ERROR OW A READ 

9512 pOCK AND HCARC SHOULD BE SET € 
6 9513 pOCK 18 SET BECAUSE ECC 18 NOT READ 

9514 026670 900200 788 RTS Ra pRETURN TO MAIN TEST 

9515 € 
¢ 9516 

9517 

9518 sTHIS 38 A SUBROUTINE TO LEAVE AT THE MIDDLE OF € 
é& 9519 pA WRITE HEADER AND DATA COMMAND 

9520 pIT TRYS TO GET SECTOR 146, TRACK ©, CYLINOER © 
e 9521 pBUT COMES OUT AFTER ONE SECTOR € 

€ 

& 
° $ 





4 





( 
e@ 
MAINDEC©4 1 eDERPTACA MACY11 27(657) 15eAPRe7S 17945 PAGE 440108 
e DERPTA, P11 CRC GENERATION ROUTINE { 
9523 sBAI 18 SET 
9524 ' 
€ 9525 026672 MIDDLES 
(2) 026672 010046 MoV RO, ©(8P) })PUSH RO ON STACK 
(2) 026674 010146 MOV Riv ©(8P) ))PUSH Ri ON STACK ! 
€ 9526 026676 013777 002042 152726 MOV OOWRIFOR,ORHCOs sWRITE HEADER AND DATAS62 
9527 yIN RHCB4 
9528 026704 012777 477766 482712 MoV 9°40, ,/ORHWC 110 WORDS ( 
& 9529 026712 012777 002064 4182706 MOV OWRFROM,ORHBA 48US ADDRESSOWRFRON 
9530 026720 012777 @08018 182710 NOV 910, ORHDST SDESIRED TRACKS® SECTORSIO 
9531 026726 82777 @e0e1e 132674 Bis eBAI, ORHCS2 p8US ADDRESS INCREMENT INHIBIT f 
é 9532 026734 012777 e19000 182700 NOV OFMT22,ORHOF FORMAT 46 BIT WORDS 
9533 026742 908077 152676 CLR ORHCA ICYLINDERSE 
9534 026746 012737 900001 026774 MOV 91, 00NID pGECTOR 18 BET TO 4 SO THAT ( 
& 9535 pWE CAN GET OUT AT THE 
9536 SMIDOLE OF AN OPERATION 
9537 pLOOKING FOR SECTOR 10 { 
€ 9538 ©26754 012777 00000; 482670 MOV SOND, ORHMR p8ET DIAGNOSTIC MODE 
9539 026762 52777 e9eee1 182642 Bis 9G0,@RHCSi 160 70 RHCSi WITH 62 
9540 026770 004137 038032 JSR Ri, OOSEARCH { 
é 9541 026774 ee0eee MIDs »WORD @ p SECTOR 
9542 026776 012601 HOV (SP)o,R4 $90 STACK INTO Ry 
(2) 027000 012600 MOV (8P)¢,RO $9POP STACK INTO RO { 
G 9543 027002 000207 RTS pc 
544 
54 
€ 9546 
9547 ,SBTTL JAM CURRENT CYLINDER ROUTING 
9548 pTHIQ SUBROUTINE WILL CHANGE THE CURRENT CYLINDER REGISTER ( 
@ 9549 gTHIS 36 DONE BY GIVING A SEEK COMMAND THEN AN INIT 
9530 pWHICH WILL LOAD THE CURRENT CYLINDER WITH THE DESIRED CYLINDER VALUE 
551 ’ ( 
€ 9552 pCALL 18 
9553 1J8R RO, OONAKECYL 
9554 #Xxc pOESIRED VALUE OF CURRENT CYLINDER ( 
@ 9555 
9556 
9557 027004 MAKECYL® ( 
@ (2) 027004 010546 mov RS, °(8P) p9PUGH RS OW STACK 
9558 027006 010037 662002 MoV RO, OOPCIER sPC OF JSRO4 
9559 @27012 162737 eseee4 002002 su, 04, 00PCUSR sSAVE PC OF JSR ( 
é 9560 027020 612005 MOV (RO)o,RS pGETTING READY TO FILL DESIRED CYLINDER 
9561 @27022 010577 192616 MOV RS, ORHCA SPILL DESIRED CYLINDER REGISTER 
9562 027026 905077 152604 CLR ORNDST pMAKE SURE DESIRED SECTOR TRACK 18 NOT BLLEGAL ( 
€ 9563 @27032 013777 90208e 182572 MOV OOSEECOM,ORHCSs jFILL SEEK COMMAND 
9564 @27040 012777 e9eees 182604 MOV 9DMD, ORHMR pSET DIAGNOSTIC NODE 
9565 027046 082777 e09001 182586 Bis 960, ORNCSs 160 TO SEEK ( 
é 9566 027054 90240 ' NOP pALLOW TINE FOR SEEK TO HANG UP 
9567 027056 990240 NOP pALLOW TINE FOR SEEK 70 HANG UP 
9568 027060 900240 Nop pALLOW TINE FOR SEEK TO HANG UP ( 
€ 9569 027062 900240 NOP pALLOW TINE FOR SEEK TO HANG UP 
9570 027064 004737 024470 JSR PC, OeCLDISK sGIVE INIT 
e 9571 @2707@ 017737 192874 901126 MOV ORHCC,/@OSBDDAT TEST DATA ( 
9572 027076 020837 0901126 CMP RS, O88BDDAT SCOMPARE CURRENT CYLINDER 
G 
a 





| 
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JAM CURRENT CYLINDER ROUTINE 


MAINDECe11eDERPTASA 
DERPTA,Pii 

9573 627102 001406 
9574 027104 010537 
9875 027118 013737 
9576 027116 104030 
9377 
9578 027120 

(2) 027120 012605 
9579 027122 000200 
9580 
9561 
9562 
9563 
9504 
9565 
9566 
9567 
9508 
9569 
9590 
9591 
9892 
9593 
9594 100000 
9595 040000 
9596 020000 
9597 010000 
9598 004000 
9599 002000 
9608 001000 
9601 000400 
9602 000200 
9603 000100 
9604 000046 
9605 000020 
9606 000010 
9607 000004 
9608 000002 
9609 000001 
9610 100000 
9611 040000 
9612 620000 
9613 010000 
9614 064000 
9615 002000 
9616 001000 
9617 000400 
9618 000200 
9619 000100 
9620 000040 
9621 000020 
9622 060010 
9623 000004 
9624 000002 
9625 000001 





601124 
001678 024234 


BEQ is pBRANCH IF GOOD 
MOV RS, @e8GDDAT 9GOOD VALUE OF RHCC 
MOV OORHCC,OSREGADR ;FAILING REGISTER ADDRESS 
ERROR 30 SCURRENT CYLINDER DOES NOT HATCH DESIRED CYLINDER 
SREGISTER AFTER A SEEK AND AN INIT 
16s 
MOV (SP)o,RS 99POP STACK INTO RS 
RTS RO 


eSBTTL ECC GENERARION AND COMPARIGON ROUTINE 


pTHIS SUBROUTINE GENERATES AND TESTS ECC 


sCALL JER PC, ECTEST 
PIE1 8100000 
PIE2 840080 
PIES 220000 
PIE4 810000 
PIES R4080 
PIE6 82000 
PIE? 81000 
PICO B4e0 
PIES 8200 
PIEIO 8100 
PIZii B49 
PIZEI2 #20 
PIEI3) «=—- 81 
PIEZEI4 a4 
PIEIS 22 
PIEIG ai 
PIEI7 2100000 
PIEIG 849000 
PIEI9 § =—©820000 
PIE20 #10000 
PIE 84000 
PIE22 #2000 
PIE23 21000 
PIE24 24090 
PIE2S #200 
PIE26 #100 
PIE2? 249 
PIE2ZS 820 
PIE29 #10 
PIE3I@ 0 = 84 
PIE31 a2 
PIE32 si 





MAINDEC*11 °DERPTACA 
DERPTA,Pii 


9626 
9627 
9628 
9629 
9630 
9631 
9632 
9633 
9634 
9635 
9636 
9637 
9638 
9639 
9640 
9641 
9642 
9643 
9644 
9645 
9646 
9647 
9646 
9649 
9650 
9651 
9652 
9653 
9654 
9655 
9656 
9657 
9658 
9659 
9660 
9661 
9662 
9663 
9664 
9665 
9666 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 
9667 
9668 
9669 
9670 
9671 
9672 
9673 


027124 


027126 


027130 


027132 


027134 
027136 
027140 
027142 


027144 


027146 


027150 
027152 
027154 
027156 
027160 


027162 
027162 
027164 
027166 
027170 
027172 
027174 
027176 
627202 
027206 
027212 


027214 
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113713 
000000 
000000 
010041 


010046 
010146 
010246 
010346 
010446 
010546 
013701 
013702 
005737 
001406 


027126 
027130 
027124 


ECDATAs 


GECCis 


GECC2s 


TSECCG! 


NCODE! 

NCOUNTS 
POSITIs 
HARDER: 


DATENVs 


HADTMP? 
P33 
Pi2s 
P2218 
P2és 


ECTEST# 


17845 PAGE 44°107 


@ pDATA BIT FOR ECC 
pIF ALL ONES THEN CURRENT BIT 18 A OWE 
gIF ZERO THEN CURRENT BIT I8 A ZERO 

® pLOW ORDER ECC WORD TO BE GENERATED HERE 
pSRi 

() ty ORDER ECC WORD TO BE GENERATED HERE 
SR 

fs) 9IF ©177777 GENERATE AND TEST ECC FOR THIS BIT 
sIF s@ DO NOT GENERATE AND TEST ECC FOR THIS BIT 

30659, pNeCODE WORD 

@ TEMPORARY WN CODE 

B pPOSITION REGISTER 

4129, pHARD ERROR COUNT 
gTRUE COUNT I8 44328 BUT AS COMPARES ARE 
sDONE OWE STAGE LATER 80 4129 

r) pOATA ENVELOPE FOR TYPE OUT 
pMAX FOR WRITE 18 4096 
pMAX FOR READ 38 4128 

(6) pLEADING ZEROS ENVELOPE FOR TYPE OUT 
sTHIs Is sHUT OFF WHEN pOSITION COUNTER 
pIN ENABLED 
pMAX COUNT I8 380659 

r) sTEMPORARY HARD ERROR COUNT 

@ 

@ 

@ 

ia) 

MOV RO, °( SP) sePUSH RO OW STACK 

MOV Ri, e( SP) ppPUSH Ry ON STACK 

MOV R2,°( SP) 99PUSH RQ ON STACK 

MOV R3, °C SP) ppRPUSH RQ OW STACK 

MOV R4,°e( SP) sePUSH RQ ON STACK 

MOV RS, °( SP) pePUSH RG ON STACK 

MOV @eGECCy, Ri pECCy WORD 

MOV @eGECC2,R2 pECC2 WORD 

T8T @eECDATA 938 CURRENT BIT A OWE 

BEQ 28 sBRANCH IF CURRENT DATA Dag 

gIF CARRY I8 NOT ZERO THEN Dey 


pINVERT X32 TO GIVE Ro 


MOV 


7 





i 
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DERPTA,Pii ECC GENERARION AND COMPARISON ROUTINE . 
9674 27216 052703 177776 Bis @°CPIE32,R3 
9675 027222 005103 com RQ £ 
9676 27224 010300 MOV R3,RO 
9677 027226 e00404 BR 38 
9678 € 
9679 pIF CARRY I8 ZERO THEN Ds@ 
9680 9X32 BECOMES RO 
9681 027230 010163 268 MOV RieR3 € 
9682 027232 042703 177776 Bic e°CPIE32,R3 
9663 027236 010300 MOV R3,RO 
9604 < 
9685 027240 000241 368 cLC 
9606 027242 ee6eee ROR Re 
9687 027244 906000 ROR RO « 
9688 027246 905790 T8T Re 
9689 027250 001462 BEQ 108 BRANCH IF ROaO 
9690 pINVERT X2 r 
9691 
9692 027252 010203 MOV R2,R3 
9693 027254 032703 1379777 Bis e°CPIE2,R3 € 
9694 027260 605103 com a 
9695 027262 016337 027182 MOV R3,00P3 
bees 027266 006237 627152 ASR OeP3 € 
69 
9698 pINVERT X44 
9699 r 
9700 
9701 027272 010203 MOV R2,R3 
9702 027274 082703 177737 Bis e°CPIEI1,R3 « 
9703 027300 005103 com R3 
9704 027302 010337 027154 MOV R3,00P12 
ted @27306 9006237 027154 ASK @eP12 « 
06 
9707 pINVERT x23 
9708 « 
9709 27312 610103 MOV Ri,R3 
9710 027314 082703 173777 Bis e°CPIE21,R3 
9711 027320 005103 Con R3 « 
9712 @27322 010337 027156 MOV R3,00P22 
9713 027326 006237 027156 ASR @0P22 
9714 « 
9715 pINVERT X23 
9716 
9717 27332 010103 MOV RiyR3 « 
9718 027334 082703 176777 Bis e°CPIE23,R3 
9719 27340 605163 com R3 
9720 027342 010337 027160 MOV R3,00P24 e 
o7as 027346 006237 027160 ASR =—=—s«@ OP 24 
2 
9723 pNOW THAT RO FOR POSITION 1 4 
9724 t P3 FOR POSITION 3 
9725 r Pi2 FOR POSITION 12 
9726 } P22 FOR POSITION 22 £ 
9727 2 P24 FOR POSITION 24 
€ 
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DERPTA,P11 ECC GENERARION AND COMPARISON ROUTINE 
9720 pARE KNOWN THE ROTATE WILL BE DONE AND 
9729 pTHESE BITS JAMED IN 
9730 
9731 027352 006002 ROR R2 
9732 027354 e600) ROR Ri 
9733 27356 033700 027152 BI6s 00P3,Re 
9734 027362 053700 027184 BIS 00P12,R0 
9735 027366 642702 120020 BIC @PIES (PIEIIPIES2,R2 
9736 627372 050002 BIS RO, R2 
9737 
9738 027374 eeseee CLR RO 
9739 027376 053700 027156 BIs 00P22,Re 
9740 027402 @33700@ 027160 Bis 00P24,R0 
9741 027406 042701 @02400 Bic OPIE22 1 PIE24, Ry 
9742 027412 80001 els RORY 
9743 027414 00404 BR 428 
9744 
9745 )THE PROGRAM CONES HERE IF ROSO 
9746 980 AFTER ROTATE RO GETS PUT INTO POSITION 4 
9747 027416 906002 1083 ROR R2 
9748 027420 006001 ROR Ri 
9749 027422 042762 100000 BIC OPIEy,R2 
97530 027426 010137 627126 4268 MOV Rie OOGECC) pSAVE ECC) 
é 9751 027432 010237 027130 MOV R2,00GECC2 pSAVE ECC2 
9752 027436 005737 027132 T8T eeTSECCG 928 HARDWARE TO BE CHECKED 
9753 s2F 03777777 TEST HARDWARE 
€ 9754 s1F © @ DO NOT TEST NAROWARE 
9755 027442 001432 BEO 148 sBRANCH IF HARDWARE NOT TO BE CHECKED 
9756 
e@ 9757 
9758 SCHECK HARDWARE 
9759 027444 032737 @ee4e8 177576 BIT e5We, CosuR p28 SWITCH © SET 
q 9760 027452 01005 BHE 458 pBRANCH IF Swe IS SET 
9761 027454 032737 @80198 177576 BIT 8846, 008WR p28 SWITCH 6 SET 
9762 027462 001401 BEO 188 pBRANCH IF 646 I6 NOT BET 
Cc 9763 027464 000421 BF 448 pif SWITCH @ Is NOT SET AND 
9764 pSWITCH 6 I6 SET THEN 
9765 700 NOT DO COMPARES 
€ 9766 027466 010146 156s MOV Rio °(SP) pGOOD PATTERN REGISTER 
9767 027470 042716 174000 BIC 0174900. (8P) sGET ONLY PATTERN BITS 
9768 027474 @22677 192164 CMP (8P)o,@RHEC2 sCOMPARE PATTERN REGISTER 
€ 9769 0275800 001404 BEO 138 PBRANCH IF GOOD 
9770 sTO SAVE TIME 
9771 027502 904737 024179 JER PC, OOPUTREG pGAVE REGISTERS 
€ 9772 027506 104035 ERROR 35 PPATTERN REGISTER IN 41 BITS IN ERROR 
9773 027810 900407 BR 148 pBRANCH OUT 
9774 027512 023777 @27140 182142 1368 CMP OOPOSITI,ORHECy sCOMPARE POISTION REGISTER 
® 9775 027520 01403 BEO 148 pBRANCH IF GOOD 
9776 yTO0 SAVE TINE 
9777 @27522 004737 024170 Jar PC, @OPUTREG s6AVE REGISTERS 
€ 9778 027526 104035 ERROR 35 pPOSITION REGISTER IN ERROR 
9779 p°DATA ENVLOP® GIVES NUMBER OF CLOCK 
e 9760 SPULSES FROM BEGINING OF COMMAND 
9781 pTHAT 26 THE CLOCKS IN THE R/W DATA FIELD ENVELOPE 
€ 
@ eater ehanet scree er crn iia A i Ra eR ET LEE ALE DAD LLL |. I 


5S @ @& @6@& 2060060860000 060606006806006006060680@0@06CU8lUmtC DUC 





9782 
9763 
9764 
9765S 
9766 
97867 
9768 
9769 
9792 
9791 
9792 
9793 
9794 
9795 
9796 
9797 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 
9798 
9799 
9800 
9601 
9802 
9603 
9004 
9605 
9606 
9607 
98086 
9809 
9610 
9611 
9812 
9613 
9614 
9615 
9816 
9617 
9618 
9819 
9620 
98621 
9622 
9823 
9624 
9825 
9826 
98627 
9628 
9829 


_ 


027530 
027530 
027532 
027534 
027536 
027540 
027542 
027544 


027546 


027550 
027554 
027562 
027566 
027570 
027574 
027600 


027604 
027610 
027612 
027616 
027620 
027622 
027626 
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012605 
012604 
012603 
012602 
012601 
012600 
000207 


010037 
162737 
012037 
010146 
013781 
012711 
005037 


005737 
001007 
005337 
0010061 
000403 
005237 
000420 
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002002 
000004 
027546 
601652 


000001 
027124 


027140 
027136 


027146 
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MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTS 
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(SP)¢,R5S 
(SP)o,R4 
(8P)¢,R3 
(SP)¢,R2 
(6P)o,R1 
(SP)¢,RO 
pc 


' 
pIN A WRITE THERE ARE 10000 OCTAL CLOCKS 


pIN A READ THERE 
t 


’ 
p"NeCODE ZEROS® GIVE THE NUMBER OF CLOCKS 


ARE 10040 OCTAL CLOCKS 


» GIVEN FOR THE LEADING ZEROS FIELD 
pMAX COUNT I8 4137433 OCTAL 


i 
9*GOOD POSITION® 


SGIVEN AFTER LEADING ZEROS WHICH 16 FOR THE DATA 


sPIELO 


GIVES NUMBER OF CLOCKS 


pMAX COUNT 238 160040 OR 10043 OCTAL 


99POP STACK INTO 
s9POP STACK INTO 
spPOP STACK INTO 
99POP STACK INTO 
p9POP STACK INTO 
99POP STACK INTO 


pTHIS SUBROUTINE WILL CONTROL THE ECC GENERATION 
pFOR ERROR CORRECTION PROCESS 


sCALL 
H 


JSR 
xP 


MOV 
sus 
MOV 
MOV 
MOV 
MOV 
CLR 


e PC, @GECORR 


pEXPECTED POSITION REGISTER WHEN 


RS 
ha 
A} 
R2 
Ri 
RO 


ROUTINE 


CORRECTION 38 COMPLETE 


pPOSITION REG, WHEN CORRECTION I8 COMPLETE 


RO, OOPCUSR 
04,0ePCJSR 
(RO) o, OCERPOS 
Ri,e( SP) 
OORHMR, Ri 
@OMD, ORY 
@eECDATA 


eePOSITI 
28 
CeNCOUNT 


pSAVE PC OF JSR + 4 


sGAVE PC OF JSR 


sGET POSITION REG, WHEN CORRECTION 18 COMPLETE 


psPUSH Ri ON STACK 
pMAIMTENANCE REGISTER 
sSET DIAGNOSTIC MODE BIT 
sECC DATA 18 ZERO 


838 SOFTWARE POSITION NON ZERO 
sBRANCH IF NeCODE & COMPLETE 
pDECREMENT NeCODE 

pBRANCH IF NeCODE 16 NOT COMPLETE 
sBRANCH AS NeCODE 18 COMPLETE 


pINCREMENT CLOCKS GIVEN FOR LEADING ZEROS 


SBRANCH AS NeCODE Ig NOT COMPLETE 
960 TO GIVE CLOCK AND TEST ECC 


tlle 


| 


NN NNN A 
| 
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9030 027630 085237 027140 ass INC @ePOSITI pINCREMENT SOFTWARE POSITION 
9031 027634 023737 027546 627140 CMP OcERPOS, OOPOSITI;SHAVE ENOUGH CLOCKS BEEN GIVEN TO DETECT ERROR € 
9832 027642 103012 BuIS ae BRANCH IF MORE CLOCKS TO BE GIVEN 
9633 027644 623737 ©2718@ 027140 CHF GOHADTMP, COPOSITI;PHAVE ENOUGH CLOCKS BEEN GIVEN FOR HARD ERROR 
9034 STHAT 16 HAVE 4126 MORE CLOCKS BEEN Given € 
9835 027652 001415 BEG 58 BRANCH IF YES 
9036 027654 632711 600400 BIT OZER, OR CHECK ZERO DETECT BIT IN RHMR 
9837 027660 001016 BNE ae sBRANCH I8 ZER SET € 
9038 TO SAVE TIME 
9639 027662 0604737 0241706 JSR PC, OOPUTREG SAVE REGISTERS 
9840 0627666 104034 ERROR 34 ZERO DETECT BIT NOT HIGH € 
9041 pWHEN 23 BITS IN ECC 32 BIT REGISTER I8 @ 
98042 
9043 e 
9044 027670 052711 000002 388 Bis OMCLK, ORI 9ST CLOCK 
9045 027674 042711 000002 BIC OMCLK, ORY CLEAR CLOCK 
9846 027700 004737 027162 JSR PC, OOECTEST G0 TO GENERATE AND TEST ECC € 
gee? @27704 000737 BR is CONTINUE 
904 
9649 THIS EXTRA CLOCK 18 TO BRING ECH HIGH é 
9850 gAFTER THIS CLOCK POSITION REGISTER MAY BE 109040 OR 10041 OCTAL 
9851 027706 32711 eeece2 S88 Bis OMCLK, OR, 98ET CLOCK 
9852 027712 0427131 e90002 Bic OMCLK, ORY CLEAR CLOCK € 
9653 
9054 027716 48s 
(2) ©27716 012601 MOV (S8P)o,Ri #9POP STACK INTO Ri € 
9855 027720 000200 RTS Re 
9856 
9687 & 
9058 
9859 
9860 é 
9061 
9862 THIS SUBROUTINE GENERATES THE ECC FOR WHAT I8 ON DISK AND INSERTS THEN 
9863 pON LOCATIONS "DIsKkei1900" AND *DIsKe1902° € 
9064 
9645 
9866 € 
9867 027722 FILLEC? 
(2) 027722 010046 MOV RO,°( SP) p9PUSH RO OW STACK 
(2) ©27724 010146 MOV Ri, o( SP) ppPUSH Rg ON STACK é 
(2) ©27726 010246 MOV R2,°(SP) ppPUSH RQ ON STACK 
(2) ©27730 010346 MOV R3,°( SP) ppPUSH RZ ON STACK 
(2) 027732 010446 MOV R4,°( SP) p9PUSH R4@ ON STACK é 
(2) ©27734 010546 MoV RS,°(SP) ppPUGH RS OW STACK 
9868 027736 005037 627140 CLR @ePOsITI pCLEAR POSITION 
9869 027742 905037 027126 CLR @eGECC, pCLEAR GECCy € 
9870 027746 995037 027130 CLR @eGecc2 pCLEAR 
9871 027752 @12701 032734 MOV eDISK,Ri sPOINTER TO DATA FOR ECC GENERATION 
9872 027756 912702 #00400 MOV 0256,,R2 sCOUNTER FOR NUMBER OF DATA WORDS € 
9673 027762 012703 -eeee20 TT MOV 016.,R3 sCOUNTER FOR NUMBER OF BITS PER WORD 
9874 027766 012104 MOV CRI) o,R4 DATA IN RG 
9875 027770 906004 1068 ROR ke GET ONE DATA BIT IN CARRY € 
9876 027772 103004 BCC 118 pBRANCH If DATA BIT 18 ZERO 
€ 
(l 
J ¢ 
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9677 
9076 
9679 
9660 
9061 
9802 
9663 
9084 
9665 
9666 
9667 

(2) 

(2) 


027774 
030002 
030004 
030010 
030014 
030016 
030020 
030022 
030024 
030032 
030040 
030042 
030044 
030046 
030050 
030052 
030054 


030134 
030134 
030140 
030142 
030146 


030222 
030222 
030224 
030230 
030234 
030240 
030242 
030244 
030246 
030252 


030312 
030312 
030316 
030320 
030324 


030424 
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012737 1977777 «#927124 MOV @°1,@CECDATA ECC DATA BIT IS A ONE 
000402 BR 128 sBRANCH TO GENERATE ECC 
005037 027124 1188 CLR @eECDATA pECC DATA BIT 18 A ZERO 
004737 027162 1268 JSR PC, OOECTEST G0 TO GENERATE ECC 
005303 DEC R3 sDECREMENT BIT COUNT 
001364 BNE 108 BRANCH IF 16 BITS NOT DONE 
005302 DEC Ra sDECREMENT WORD COUNT 
001357 BNE a pBRANCH IF 256 WORDS NOT DONE 
013737 ©27126 033734 MOV OOGECC1, OODISKe<256,02>, INSERT ECC ON DISK 
013737 ©27130 033736 MOV O0GECC2, OODISKe<257,02>, INSERT ECC2 OW DISK 
012605 MOV (8P)o,RS 99POP STACK INTO AS 
012604 MOV (8P)o,R4 99POP STACK INTO RG 
012603 MOV (6P)¢,R3 99POP STACK INTO R3 
012602 MOV (8P)e,R2 p9POP STACK INTO R2 
012601 MOV CSP) o,R4 9pPOP STACK INTO Rj 
012600 MOV (8P)o,Re #9POP BTACK INTO Re 
000207 RTS pc 
SBTTL RH BASE ADDRESS CHANGE ROUTINE 
rr) THIS ROUTINE WILL ALLOW THE CHANGE OF THE BASE 
se ADDRESS FROM 17670@ TO ANY TYPED VALUE 
BASECHs 
104400 030064 TYPE 0.04 peTYPE ASCIZ STRING 
000424 BR has pp9GET OVER THE ASCIE 
99 ABCIZ <15><12>/PRESENT BASE ADDRESS OF REGISTERS 18/ 
6488 
013746 601632 MOV OeRHCS1,°(SP) 4 sGET READY TO TYPE OLD BASE 
104402 TYPOC 
104400 030150 TYPE oee4 peTYPE ASCIE STRING 
000428 BR 646 99GET OVER THE ASCIZ 
99 ,ASCIZ <15>¢€12>/TYPE WEW BASE ADDRESS FOLLOWED BY °CR°/ 
6588 
104416 RDOCT 
012700 001622 MOV @RHDB, RO GET STARTING ADORESS OF RGISTERS 
012701 000024 MOV 020.91 pNUMBER OF REGISTERS 
042710 177700 18s BIc 6°C77, (RO) CLEAR OLD BASE 
051620 BLS (SP),CRO)¢ SET NEW BASE 
005301 pec Ri COUNT 
001373 ; BNE 18 pSRANCH IF 20 NOT DONE 
104400 030254 TYPE 0.04 peTYPE ASCIZ STRING 
000417 BR 668 99GET OVER THE ASCIZ 
99, ASCIZ €15><32>/PRESENT VECTOR ADDRESS 18 / 
668% 
013746 001620 MOV @oRPVEC,°(SP) )GET READY TO TYPE OLD VECTOR ADDRESS 
104402 TYPOC 
104400 030326 TYPE 0004 p9TYPE ASCIZ STRING 
000437 BR 678 p9GET OVER THE ASCIZ 
99 ,ASCIZ <15>¢12>/TYPE NEW VECTOR ADORESS OR RETYPE OLD ONE FOLLOWED BY "CR 
6788 








‘- eee 
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9913 
9914 
9915 

(4) 


030424 
030426 
030432 
030436 


030540 
030540 
030544 
030546 
030552 


030660 
030662 
030666 
030672 
030674 
030700 
030702 
030704 


104416 
012637 
104400 
000421 


104400 
000414 


013746 
104402 
104400 
000415 


013746 
104402 
164400 
000416 


080060 
004737 
013732 
005714 
032712 
001401 
000773 
600772 


MACY33 27(657) 


ISeAPRe7S 17845 PAGE 440413 


ADDRESS CHANGE ROUTINE 


024470 
039660 


RDOCT 

MOV 

TYPE 

BR 

99, ASCIZ 
6688 


7068 


99 ,A8CIZ 
HALT 


7168 


pTHIS 18 A LITTLE ROUTINE THAT TESTS NED BIT 11 IN RHCS2 


pTHIG LOOPS HERE 


TO BE USED ONLY IF DRIVES PRESENT LOOKING AT NED DOES NOT AGREE 


pWITH WHAT IS RE 
ERUNITs @ 
ERSTARTSJUSR 

MOV 
188 T8T 

BIT 

BEQ 

BR 
2838 BR 


(8P)¢,0eRPVEC 
0e%4 
686 


<15><€12>/RESTART PROGRAM FROM 200 OR 210/ 


o 04 
696 


sSETUP VECTOR ADDRESS 
pOTYPE ASCIZ STRING 
p9GET OVER THE ASCIZ 


seTYPE ASCIZ STRING 
peGET OVER THE ASCIZ 


€15><€12>/NEW BASE WILL REMAIN? 


004 
708 


seTYPE AGCIEZ STRING 
p9GET OVER THE ASCIZ 


€15>¢€12>/NEW VECTOR WILL REMAIN / 


OORPVEC, @( SP) 


0204 
718 


€15><412>/UNTIL PROGRAM 38 RELOADED/ 


FOR EVER 
ALY THERE 


PC, OOCLDISK 
OGERUNIT, ORI 
ong . 

OWED, OR2 

ao 

i3 

ie 


peTYPE ASCIZ STRING 
ppGET OVER THE ASCIEZ 


sUNIT UNDER MANUAL TEST 
5SET GENERAL REG, 
pSELECT UNIT 

TEST RHER, 

sTEST NED 

pBRANCH IF GOOD 

sNED NOT SET 

sNED SET 
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9942 eSBTTL DISK SIMULATION 
9943 PITTI III III II iiiiisiiiiiiriiiiiriitiiiiiiiiiittitt) 
9944 $ 0080000060080 0000060000000 0000 0000000 00000000000 000000000 000008 
9945 gIN A WRITE HEADER AND DATA COMMAND FILL THE FOLLOWING 
9946 pWCLY@WITH CYLINDER TO BE ON DISK 
9947 pWSECTREWITH SECTOR AND TRACK TO BE OW DISK 
9948 pWKEYi{e@ WITH KEY§ TO BE ON DISK 
9949 pWKEY2e@ WITH KEY2 TO BE ON DISK 
9950 sFNWORDe NO OF DATA WORDS TO BE WRITTEN ON DISK 
9951 pTHE COMMAND THEN I8 JSR PC,COMWHD 
9952 B 
9953 i 
9954 i] 
9955 p 
9956 9IN A WRITE DATA COMMAND FILL THE FOLLOWING 
9957 sCYLSWITH CYLINDER TO BE FOUND ON DISK 
9958 pSECOTRe WITH SECTOR AND TRACK TO BE FOUND OW DISK 
9959 pKEYie WITH KEY¥i TO BE FOUND ON DISK 
9960 pKEY2e WITH KEY¥Y2 TO BE FOUND ON DISK 
9961 pXe 4 MUST BE ONE 
9962 pNOWORDe WITH NUMBER OF DATA WORDS TO BE WRITTEN 
9963 pTHE COMMAND THEN IS JSR PC,COMHD 
9964 5 
9965 8 
9966 f 
9967 q 
9966 9 
9969 d 
9970 s3N A READ HEADER AND DATA COMMAND FILL THE FOLLOWING 
9971 pCY¥Le WITH CYLINDER TO BE FOUND ON DISK 
9972 pSECOTRe WITH SECTOR AND TRACK TO BE FOUND ON DISK 
9973 gREYie WITH KEY{ TO BE FOUND ON DISK 
9974 pREYQ2ewITH KEY2 TO BE FOUND OW DISK 
9975 pOAWORDs WITH NUMBER OF WORDS TO BE FOUND ON DISK 
9976 99X8@ MUST BE ZERO 
9977 pTHE COMMAND THEN I8 JSR PC,COMHD 
9978 8 
9979 2 
9980 8 
9961 ’ 
9962 § 
9983 ] 
9984 | 
9965 ’ 
9996 $ 
9967 ? 
9968 9IN A READ DATA COMMAND FILL THE FOLLOWING 
9969 pCY¥Le WITH CYLINDER TO BE FOUND OW DISK 
9990 pSECOTRe WITH SECTOR AND TRACK TO BE FOUND OW DISK 
9991 pKEYis WITH KEY¥i TO BE FOUND OW DISK 
9992 sKEYZewLTH KEY2 TO BE FOUND OW DISK 
9993 pDAWORDs WITH NUMBER OF WORDS TO BE FOUND ON DISK 
9994 99Xe@ MUST BE ZERO 
9995 THE COMMAND THEN 18 JSR PC,COMHD 
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9996 . ; 


Ree®e®eeoeeeoeoeeeeeeeeeeeea@a 


eaeee5usev%se6464eeeeeevus#eueeeeeeereeeee& ®e 





' 


Pci laine kien niaistina iain sania 
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030706 
030712 
030720 
030722 
030724 
030726 
030730 
630732 
030734 
030742 
030750 
030754 
030760 
030764 
030770 
830772 
030776 
031002 
031006 
031012 
031016 
031020 
031022 
031024 
031026 


031030 


031032 


DISK SIMULATION 


011637 
4162737 
010046 
010146 
010246 
010346 
010446 
610546 
012777 
052777 
016746 
042716 
012637 
004137 
000008 
612701 
016137 
016137 
010137 
004137 
000000 
000006 
000000 
000000 
600000 


000240 
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002002 
000084 


00000; 
000001 
000044 
177740 
030770 
035032 


000240 
031030 
031032 
031034 
031140 


156710 
150662 
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pWRITE DATA COMMAND 
gOR READ COMMAND I,£— DATA ONLY OR HEADER AND DATA 


COMMNDs MOV 


(SP), @ePCUSR 
04,60PCJSR 
RO, °( SP) 
Ri,e( SP) 
R2,°( SP) 
R3,°( SP) 
R4,°( SP) 
RS, °( SP) 
@DMD, ORHMR 
0G0,@RHC8i 
SECOTR, ©( SP) 


(8P)o, OOTRK 


Ris OeSEARCH 
@ 


@oNOP, Ri 
Ris @essyn 
Ri, @OHEDGAP 
Ris O@eHEDSYN 


pSAVE PC OF JER + 4 
pSAVE PC OF JSR 

9PUSH RO ON STACK 
p9PUGH Ry ON STACK 
p9PUSH R2 OW STACK 
p9PUGH RJ ON STACK 
p9pPUSH R4 ON STACK 
99PUSH RS OW STACK 

s6ET DIAGNOSTIS MODE 


1G0 
}OET DESIRED SECTOR/TRACK 
(SP) pMAKE ONLY SECTOR 
pSAVE SECTOR 

900 SEARCH SECTOR 


pGOING TO MOVE NOPS 
sNOp INTO SSX" 
sNOP INTO HEDGAP 
NOP INTO HEDSYN 


sCYLINDER ADDRESS 

pSECTOR/TRACK ADDRESS 

sKEY{ WORD 

sKEY2 WORD 

pXeq WRITE COMMAND 

9%8@ READ COMMAND 

gif "ERROR 2° INSERTED SY RDHEAD 
pSUBROUTINE THEN THE FIRST SYNC, 
936 NOT DETECTED, NO BAD DATA 
928 GIVEN BECAUSE SYNCe1 44900 
sCANNOT BE READ, WORD NO 

p36 *4° BECAUSE THIS I6 THE FIRGT 
sWORD TESTED 


SIF "ERROR 3° INSERTED By 
pROHEAD SUBROUTINE THEN THE 
pHEADER GAP 6°S WERE NOT 
}WRITTEN RIGHT 
}IF ®WORD NO* CONTAING SAY 
53¢0) THEN If I8 THE THIRD 
sWORD OF A § WORD HEADER 
)GAP THAT I8 WRONG 
PeBAD DAGA? CONPARNS URAT 38 


zr ea f fe 


Sean 
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10047 
10048 
10049 
10080 
10951 
10052 
10053 
10054 
10055 
10056 
10057 
10058 
10059 
10060 
10061 
10062 
10063 
10064 
10065 
10066 
10067 
10068 
10069 
10078 
10071 
10072 
10073 
10074 
10075 
10076 
10077 





031034 


031036 
631042 
031044 
031050 
031052 


031056 
031060 
031064 
631066 
031070 
031072 
031076 
031100 
031102 
031102 
031104 
031106 
031110 
031112 
031114 
031116 


031120 
033122 
031124 
031126 
031130 
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DISK SIMULATION 


000240 


005737 
001017 
005737 
0014108 
005737 


001011 
004137 
000000 
000000 
000404 
004137 
000000 
oeeeee 


012605 
012604 
012603 
012602 
012603 
612600 
000207 


014400 
000008 
000000 
000000 
000000 


001774 
031026 
031132 


032404 


ISeAPR°7§ 


HEDSYNe 


— 


DAREADs 
DAWORDs 


OUTS 


MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
ATS 


OCERFLGS 
out 

36k 
OAREAD 
@enosyYNC 


(SP)o,R5 


C8P)o,R4 
(SP)¢,R3 
(8P)o,R2 
C8P)¢,R4 
(SP)¢,Re@ 
PC 


47845 PAGE 440117 


sGOING ON THE DISK 


pIF *ERROR 3° INSERTED BY ROHEAD 
pSUBROUTINE THEN THE HEADER SYNC, 
sGENERATED BY DCL 18 WRONG 
gOR THE LAST BYTE 
pOF THE HEADER GAP 0°S I8 WRONG 
pIN EITHER CASE WORD NOSE 
PRIGHT BYTE 38 HEADER @ 
pLErT BYTE 38 sy¥NC 
9*BAD DATA® HAS WHAT I6 GOING 
pON DISK 


pARE ANY ERRORS DETECTED 
IF YES SRAWCH 


$18 THIS FORCED HEADER ERROR COMMAND 
SIF YES WMOSYNCec, THEN WRITE OR READ 
918 SHUT OFF SO BRANCH OUT 
sIF NOSYNCe@ THEN CONTINUE 
pBRANCH LF SET 
pWRITE DATA 
p¥O OF WORDS TO BE WRITTEN 
4 


A 
OGREDATA pREAD DATA 
94O OF WORDS TO BE READ 


p9POP STACK INTO RG 
99POP STACK INTO RE 
99P0P STACK INTO RQ 
99POP STACK INTO RQ 
99POP STACK INTO Ry 
p9POP STACK INTO Ro 


$ 0900000000000000000000000000000000 00000000 C000C0 HH HOHTCOEROHCD® 
THE DSK SECTOR 18 DEVIDED AS FOLLOWS 

919 WORDS OF @, ONE WORD 144000 

pTHESE MAKE 39 BYTES FOR SECTOR GAP AWD OWE SYNC, BYTE 


RBYNC! 
RCYLs 

RSETRe 
RKEYis 
RKEY2¢ 


14400 


95 WORDS OF @ OWE WORD 144000 
pTHESE MAKE 14 BYTES FOR HEADER GAP AND ONE SYNC, BYTE 
pTHESE ARE DCL GENERATED 
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10095 
10096 
10097 
10096 


pTHERE ARE 256 WORDS OF DATA 


10099 pTHERE ARE 2 WORDS FOR ECC GENERATED BY DCL 

10100 915 WORDS OF @ FOR DATA GAP AND TOLERANCE GAP 

10101 J PF COFEOHFOSTH DE GHOTHOSHOGEGHFOIHOID OOH OOSHEHHOGED SOD SELLOBODEGHGOY 
10102 

10103 

10104 

10105 

10106 

10107 

10108 PEGGLOGFSOG THOS GSOT SHO OHOG DOL O GOGH HOSOS OES ESH GUD OHSO SVE OO SSHETODD® 
10109 pREAD DISK HEADER 

10110 PSSSLHHGSOGGHHLOGEOALGHHGOTHOHEH GOOG OG BIDEDOVGSHHGDHECHO OO OSEOEOS 
10111 

10112 

10113 

10114 

10115 

10116 031132 #890000 NOSYNCS @ SFORCED HEADER ERROR © oj} 

10117 sWORMAL © 6 

10118 0631134 eee0000 TYs td] pERROR TYPE WO, 

rage 031136 990000 ERWORDs @ pERROR WORD NO, 

10120 

10121 

10122 

10123 

10124 031140 012137 031122 RDHEADs MOV (Ride, GOORCYL sSTORE CYLINDER ADDRESS 

10125 631144 012137 03131246 MOV (Ride, OORSETR sSTORE SECTOR AND TRACK ADDRESS 
10126 631150 612137 031126 MOV (Ride, GOORKEY, sSTORE KEY) 

10127 ©31154 012137 031130 MOV (Ri), OORKEYZ STORE KEYZ 

10128 631160 612137 0631730 MOV (Ride, GOOCOMPA ;STORE COMPARE OR NOT 

10129 031164 010146 MoV Ri, °( SP) 99PUSH Ry OW STACK 

10130 031166 613700 001682 MOV OORHMR, RO pRO CONTAINS MAINTANENCE REG, 
10131 0631172 0612708 #60002 MOV O26 RS pRS 18 A COUNTER FOR WORDS 

10132 031176 012710 ee00e% MOV @OMD, oRe sDIAG, MODE 

10133 031202 052718 eee0ei10 818 OMSTCK, ORO pSET SECTOR FOR FIRST WORD 

10134 031206 082710 #080002 BIs OMCLK, ORO s8ET CLOCK FOR FIRST WORD 

10135 031212 042718 090012 arc OMSTCKIMCLK, ORO RESET SECTOR AND CLOCK 

10136 631216 900404 BR at pBRANCH OVER GIVING SECTOR FOR FIRST TINE 
10137 031220 612718 #00013 ise MoV GHSTCKSMCLKIDND, ORO) SET SECTOR, CLOCK, DIAG, MODE, RESET INDEX 
10138 ©31224 642719 600012 Bic OMSTCKIMCLK,OR® SRESET SECTOR, CLOCK 

10139 631230 0612702 #09007 28% Mov 67. R2 pR2 38 A COUNTER FOR BYTES 
10140 031234 @S2716 #800002 38s B18 OMCLK, ORO 98ET CLOCK 

10141 0631240 042710 960002 BIc OMCLK, ORO pRESET CLOCK 

10142 631244 605302 DEC R2 s8YTE COUNTER 

10143 631246 001372 BNE 36 pBRANCH IF BYTE NOT COMPLETE 
10144 631250 005305 ogc RS sWORD COUNTER 

10145 631252 601362 BNE 16 sBRANCH IF WORD NOT COMPLETE 
10146 031254 612782 698022 MOV 0186. RQ 980 OF WORDS OF ZEROS 

10147 0631260 905037 031726 446i CLR @eWORD pREAD @ 

10148 631264 604737 031732 JSR PC, @OREAD 360 TO READ 
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10149 
10150 
10151 
10152 
10153 
10154 
10155 
10156 
10157 
10158 
10159 
10168 
10161 
10162 
10163 
10164 
10165 
10166 
10167 
10168 
10169 
10170 
10171 
10172 
10173 
10174 
10175 
10176 
10177 
10178 
10179 
10180 
10183 
10162 
10183 
10164 
10165 
10186 
10187 
10188 
10189 
101908 
101913 
10192 
10193 
10194 
10195 
10196 
10197 
10198 
10199 
10200 
10201 
10202 


031270 
031272 
031274 
031302 
031306 
031312 
031314 
031322 
834330 
031336 
031340 
031346 
031352 
031360 
031364 
031372 
031376 
031404 
031410 
031416 
031422 
031426 
031430 
031434 
031436 
031442 
031446 
031454 
031460 
031464 
031466 
031472 
031476 
034504 
031512 
031514 
031520 
031522 
031524 
031530 
031536 
031540 


031544 
031546 
031552 
031554 
031560 
031562 
031570 
031576 
031604 


DISK SIMULATION 


0053062 
001372 
013737 
004737 
032710 
001612 
012737 
013737 
012737 
000571 
013737 
004737 
013737 
004737 
013737 
004737 
013737 
004737 
013737 
004737 
008737 
001135 
008737 
001472 
012708 
012702 
012737 
004737 
005737 
001413 
160237 
005037 
013767 
032737 
600503 
013728 
005302 
001351 
004737 
023737 
001426 
005737 


001406 
005737 
001420 
605037 
000403 
013737 
013737 
012737 
012737 
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031120 
031732 
001000 


000001 
031120 
104002 


631122 
031732 
031124 
031732 
031126 
031732 
631130 
031732 
0327136 
031732 
002014 


031730 


032720 
000005 
006066 
032164 
632162 


031136 
001124 
632162 
104003 
032162 
032164 
031120 


031132 


031120 
032162 
009006 
104003 


033726 


031136 
001124 
031630 
033726 
031726 
031726 
031726 


031726 


147422 
031032 


032162 


ISeAPRe7§ 


78% 


DEC 
BNE 
MOV 
JSR 
BIT 
BNE 
MOV 
MOV 
MOV 
BR 

MOV 
JSR 
MOV 
JSR 
MOV 
JSR 
MOV 
JSR 
MOV 
JSR 
Tst 
BNE 
TsT 
BEO 
MOV 
MOV 
MOV 
JSR 
TST 
BEQ 
8uB 
CLR 
MOV 
MOV 
BR 

MOV 


17345 PAGE 44°119 


rs sCOUNT 

@GRSYNC,@S9WORD 4SYNC, WORD 

PC. @eREAD 

eDTSY, eRe pSY¥NC, BYTE DETECTED? 

68 pBRANCH IF SYNC DETECTED 

#1» @eERWORD sERROR WORD NO 

OORSYNC,O86GDDAT p8YNC WORD 

0104002,0668YN j;INSERT "ERROR 2° IN SEYN 

136 pBRANCH OUT 

OORCYL, OOWORD SETUP CYLINDER 

PC, @@READ READ 

OORSETR,OOWORD ;SETUP SECTOR/TRACK 

PC, @eREAD pREAD 

OORKEY1,@00WwORD sSETUP KEY) 

PC, @eREAD pREAD 

@ORKEY2,@@WORD  ;SETUP KEY2 

PC, @eREAD pREAD 

GOOeWCRC,OSWORD ;S8ETUP CRC 

PC, @eREAD pREAO 

OeTESOTE 928 THIS A DRIVE TIMING ERROR 

4138 sBRANCH OUT IF YES 

@eCOMPA 928 THIS A READ OR WRITE COMMAND 

118 

OHEGAP, RS pPOINTER FOR HEADER GAP 

0S. R2 sO OF WORDS OF ZEROS 

66, @eERWORD pERROR WORD HO SET 

PC, OOWRITE pFOR MEADER GAP 

@ewWORD pTEST WRITTEN WORD 

78 pBRANCH ZF GOOD THAT I8 @ 

R2, @eERWORD pWORD NO IN ERROR 

@e6GDDAT 9G00D WORD SHOULD BE @ 

@eWWORD, SBDDAT BAD DATA 

0104003, @eHEDGAP p°ERROR 2° GOES IN HEDGAP 

138 sBRANCH OUT 

aetna pSAVE HEADER GAP 

2 

Gs 

PCe @OOWRITE pWRITE HEADER (DATA) GAP SYNC 

@sREYNC, COWWORD 

12s 

@enOsyNc 918 THIS FORCED HEADER ERROR COMMAND 
pIF YES WOSYNCecy THEN WRITE OR READ 
918 SHUT OFF SO BRANCH OUT 
IF NO NOSYNCeg THEN CONTINUE 

448 pBRANCH If TRUE ERROR 

@ewWwORD i 

108 pORANCH IF GOOD 

@eSGODAT sIT SHOULD BE ZERO 

156 SBRANCH TO TYPE ERROR 

OeRSYNC,O9SGDDAT 9G00D DATA 

OoWWORD, OOSBDDAT p8AD DATA 

06, @SERWORD 

0104003, @eHEDSYN 


S 





10203 
10204 
10205 
10206 
16207 
10208 
10209 
102108 
10231 
10212 
10213 
10214 
10215 
10216 
10217 
10218 
10219 
10220 
10221 
10222 
10223 
10224 

(2) 
10225 
10226 
10227 
10226 
10229 
10230 
10231 
10232 
10233 
10234 
10235 
10236 
10237 
10238 
10239 
1024e 
10241 
10242 
10243 
10244 
10245 
10246 
10247 

(2) 
10248 
10249 
10258 
10251 
10252 
10253 
10254 


,. e@8 @ 8 6 8686 8 6 6Ue!lmUDlmlCUCOODUlLUCOUmUCODCOOWDCODlCUCOlUtC ECC CLCOlLUCOCD 


| 


031612 
031614 
031620 


@31622 
031626 
031632 
031636 
031640 
031642 
031650 
031654 
031660 
031662 
031666 
031670 
031672 
031676 
031700 
031706 
031714 
031722 
031722 
@31724 


031726 
031730 


031732 
031732 
031734 
031740 
031744 
031750 
031752 
031756 
0314762 
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000443 
0137258 
000440 


012702 
005067 
004767 
005302 
001372 
013737 
004767 
005737 
001404 
032710 
001415 
600403 
032710 
001011 
012737 
013737 
012737 


012601 
000201 


010246 
012705 
012718 
006037 
103002 
0527108 
012702 
082733 
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e0e0ees 
000074 
000074 


031120 
000056 
031132 


061000 


006006 
031120 
164002 


000002 
000001 
031726 


000020 
000007 
000012 


031726 


033136 
001124 
031634 


ISeAPRe7S 171545 PAGE 44°120 
BR 136 sBRANCH OUT 
106% MOV OeWWORD, (RS) SSAVE DATA SYNC, 
BR 136 
pREAD COMMAND START FROM HERE 
1188 MOV 6S, R2 
1268 CLR WORD 
J8R PC. READ pREAD HEADER GAP 
DEC R2 916 S MEADER GAP ZEROS COMPLETE 
BNE 128 IF NOT BRANCH 
MOV OORSYNC,C@@WORD SYNC WORD 
JSR PC» READ #READ HEADER (DATA) SYNC) 
TST OeNOSYNC 
BEQ 168 IF NOT ERROR COMMAND BRANCH 
BIT eDTSY, ORO p8YNC, DETECTED 
BEO 138 9IF ZERO BRANCH OUT 
BR 176 sIF WOT ZERO BRANCH TO ERROR 
166% BIT eOTSY, ORO pSYNC, DETECTED? 
BNE 138 pBRANCH IF YES 
1788 MOV 66, @8ERWORD sERROR WORD WO, 
MOV OORSYNC, OOSGDDAT; SYNC WORD 
MoV 0104002, 00HEDSYN 
1368 
MoV CSP)¢,Ri 99POP STACK INTO Rj 
RTS Ri 


J OOOOSSSOCOD SOO ESOEOHSOHOOOOOOCELODOOOOHHSOOOHOCEOOSOSOROSOODOO® 
pREAD OWE WORD IN "WORD® 
$ 0009860 CO SSO OHOOOOOOH HOOD OTOODOOOODO OOH OOOOOSOSEHOHEOOORDOOOOS 


READS 


iss MOV 


R2,°( SP) p9PUSH RZ ON STACK 

62. RS SWORD COUNTER 

@DMD, ORO 9SET DIAG, MODE 

@ewORD pCHECKING IF THERE 18 A OWE 

is IF NO ONE BRANCH 

@MRD, ORO sSET BIT 4 IF DATA HAS OWE 

67, Ra s8XYTE COUNTER 

OMSTCKIMCLK, ORO pSET CLOCK,DATA IF ANY, SECTOR 











e o 
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10255 031766 005737 027132 TST eeTSECCG }18 THIS BIT TO GENERATE AND TEST ECC 

10256 031772 001411 BEG 68 1BRANCH IF NO & 
€ 10257 031774 032718 ee0e2e BIT @MRD, ORO ;18 DATA BIT A ONE 

10258 032000 001404 BEO rT ;BRANCH IF DATA BIT I8 @ 
e 10259 @32002 012737 177777 «927124 MOV 9e1,O8ECDATA ECC DATA BIT I8 A ONE Q 

10260 032010 000402 BR 68 ;BRANCH 

10261 @32012 05037 027126 588 CLR OeECDATA sECC DATA BIT 18 A © 

10262 032016 012746 eeeeei 681 MOV @0MD, (SP) 4KEEP ONLY DIAG, MODE 2 
€ 10263 032022 006037 031726 ROR @ewORD 1CHECKING IF THERE 18 A ONE 

10264 032026 103002 BCC 28 }IF WO ONE BRANCH 

10265 032030 012716 eeceas MOV SMRDIDMD, (SP) »KEEP DATA AND DIAG, MODE e 
€ 10266 032034 012640 268 MOV (SP), eRe }PUT IN DATA, RESET CLOCK, SECTOR 

10267 0326036 005737 27132 TST eeTSECCG 12g ECC 70 BE GENERATED FOR THIg BIT 

10268 032042 001404 BEQ 38 BRANCH IF NO © 
c 10269 032044 905237 027144 INC OeDATENY SNUMBER OF CLOCKS GIVEN FOR DATA ENVELOPE 

10278 032050 004737 027162 JSR PC, OOECTEST 3GO TO GENERATE AND TEST ECC 

10271 032084 052710 900002 3e8 Bis SMCLK, ORO 1SET CLOCK @ 
€ 10272 032060 005737 27132 TST OeTSECCG $18 THIS BIT TO GENERATE ECC 

10273 032064 001411 BEG as ;BRANCH IF NO 

10274 @32066 032710 eeee2e BIT @MRD, OR $18 DATA BIT A ONE fa) 
€ 10275 032072 001404 BEQ 16 ;BRANCH IF DATA BIT 18 © @ 

10276 032074 012737 177777 «027124 MOV $°1,@8ECDATA ECC DATA BIT Is A ONE 

10277 @32102 000402 BR Tt) ;BRANCH Fan 
€ 10278 032104 905037 027124 183 CLR @eECOATA )ECC DATA BIT I8 @ @ 

10279 032110 012746 ee00e: 083 MOV @OMD, (SP) 4REEP DIAG, NODE 

10200 032114 006037 031726 ROR @eWORD SCHECKING IF THERE I8 A OWE @ 
c 10281 032120 103002 Bcc 48 SBRANCH IF NO OWE 

10262 032122 012716 ee0ee23 MOV SMRDJDMD,(SP) KEEP DIAG, MODE AND DATA 

10203 032126 012630 ass MOV (SP), eRe $8ET DATA, DIAG, MODE, CLEAR CLOCK 2 
€ 10204 032130 005737 27132 1st eeTsECCG 118 THIg BIT TO GENERATE ECC 

10285 032134 001406 BEO 96 )BRANCH IF NO 

10206 032136 005237 027144 INC OeDATENY pNUMBER OF CLOCKg GIVEN FOR DATA ENVELOPE @ 
& 102607 ©32142 004737 627162 JBR PC, OOECTEST 360 TO GENERATE AWD TEsT ECC 

10288 032146 005302 981 DEC R2 SBYTE COUNTER 

10289 032150 001341 BNE iT) SBRANCH IF OWE BYTE NOT COMPLETE © 
e 10290 032152 05305 DEC RS sWORD COUNTER 

10291 032154 003300 BNE 18 SBRANCH IF OWE WORD NOT COMPLETE 

10292 032156 012602 MOV (SP)¢>R2 19POP STACK INTO R2 8 
® 10293 032160 0090207 RTS PC 

10294 

10295 
© 10296 e 

10297 

10298 
€ 10299 e 

10300 )000000000000000000000000000000000000000000000000000000000000008 

10301 SWRITE OWE WORD WHICH COMES BACK IN "WWORD® o 
€ 1 oes $000000000000600000005000000000000000000000000000000000008000008 

10303 

10304 
& 10305 e 

10306 

10307 
¢ 10308 e 
€ oe 
e = 


Gv 








ra) eo 
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10309 032162 ee0000 WWORD! @ 
° 10310 @ 
10311 
10312 
e 10313 @ 
10314 032164 WRITES 
(2) 032164 010046 MOV RO, (SP) 5)PUSH R@ ON STACK 
© (2) 032166 010246 MOV R2,°(SP) p9PUSH R2 ON STACK oe 
(2) 032170 010346 MOV R3,°( SP) $pPUSH R3 OW STACK 
(2) 032172 @10546 MOV RS,°(SP) $9PUSH RS ON STACK 
e 10315 032174 012705 #00002 MOV 02» RS WORD COUNTER ra) 
10316 032200 01271@ eo00e1 MOV Ole eRe pSET DIAG, MODE 
10317 ©32204 012702 00007 18s MOV e7, Ra s8YTE COUNTER 
& 10318 32210 012718 00013 MOV OMSTCKIMCLKIDMD,@RO)SET SECTOR AND CLOCK @ 
10319 ©32214 032718 s#ee04e BIT OMWR, ORO sCHECK WRITESIT IN MAINT, REG, 
10320 032220 001406 BEQ 28 pBRANCH IF ZERO 
e 10321 ©32222 012737 477777 «#927124 MOV @e1,@sECDATA pECC DATA BIT 18 A ONE ° 
10322 032230 000261 sec 9SET CARRY 
10323 ©32232 006003 ROR R3 pMOVE 1 FORWARD 
e 10324 032234 e00404 BR 38 re) 
10325 032236 008637 627124 288 CLR @eECDATA pECC DATA BIT 18 = © 
10326 032242 000241 cLc sCLEAR CARRY 
10327 032244 006003 ROR R3 MOVE @ FOR WWORD o 
é 10328 032246 012710 e000: 368 MOV eDMD, eRe sCLEAR SECTOR AND CLOCK 
10329 ©32252 008737 027132 T8T @eTSECCG p18 THIS BIT TO GENERATE ECC 
10330 032256 001404 BEQ rT} pQRANCH IF NO 2 
& 10331 032260 005237 027144 Inc @eDATENV NUMBER OF CLOCKS GIVEN FOR DATA ENVELOPE 
10332 032264 004737 027162 JSR PC, @sECTEST 9GO0 TO GENERATE AND TEST ECC 
10333 032270 082718 90002 aes ars OMCLK, ORG p8ET CLOCK ° 
e 10334 032274 032710 seeeede BIT oMWR, ORO sCHECK WRITE BIT IN MAINT, REG, 
10335 032300 001406 BEQ 58 pBRANCH IF ZERO 
10336 032302 012737 4177777 «#927124 MOV @e1,@eECDATA pECC DATA BIT I8 A ONE x) 
& 10337 032310 000261 sec SSET CARRY 
10338 @32312 ee6003 ROR RD MOVE § FOR WWORD 
10339 032314 900404 BR 64 a) 
¢ 10340 032316 005037 27124 See CLR @eECDATA pECC DATA BIT 18 ZERO 
10341 032322 000241 cLc sCLEAR CARRY 
10342 032324 906003 ROR R3 sMOVE @ FCR WWORD © 
€ 10343 032326 012710 e000) 68% MOV @DMD, eRe sCLEAR CLOCK 
10344 @32332 005737 027132 T8T @eTSECCG p28 THIS BIT TO GENERATE ECC 
1034S 032336 001404 BEQ 78 pBRANCH IF NO © 
& 10346 032340 005237 27144 INC O@eDATENV NUMBER OF CLOCKS GIVEN FOR DATA ENVELOPE 
10347 ©32344 004737 627162 JSR PC, @OECTEST 960 TO GENERATE AND TEST ECC 
10348 032350 005302 788 DEC Ra sCOUNT FOR BYTE END o 
€ 10349 32352 001346 BNE 4s gIF NOT BYTE END SRANCH 
10350 032354 05305 DEC PS sCOUNT FOR WORD END 
10351 @32356 901342 BRE 18 pIF NOT WORD END BRANCH 8 
e 10352 032360 010337 032162 MOV R3, @eWWORD sSTORE WORD 
10353 032364 012605 MOV (SP)o,RS $9POP STACK INTO RS 
(2) 032366 012603 MOV (8SP)¢,R3 99POP STACK INTO R3 4] 
© (2) 032370 012602 MOV (8P)¢,R2 $9POP STACK INTO RQ 
(2) @32372 012600 MOV (8P)¢,RO p9POP STACK INTO Re 
Ps 10354 032374 900207 RTS pc a] 
® 
& 
1®@ 
ad 
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DERPTA,Pii 


10356 
10357 
10358 
10359 
10360 
10361 
10362 
10363 
10364 
10365 
10366 
10367 
10368 
10369 
10370 
10371 
10372 
10373 
10374 
10375 
10376 
10377 
10378 

(2) 

(2) 

(2) 

(2) 
10379 
10360 
10361 
10382 
10383 
10304 
10365 
10386 
10367 
10368 
10369 
10390 
10391 
10392 
10393 
10394 
10395 
10396 
10397 
10398 
10399 
10400 
10401 
10402 
10403 
10404 
10405 


032376 
032400 
032402 
032404 
032404 
032410 
032412 
032416 
032420 
032422 
032424 
032426 
032430 
032434 
032440 
032444 
032446 
032450 
032454 
032460 
032464 
032470 
032472 
032476 
032500 
032506 
032512 
032516 
032522 
032524 
032526 
032530 
032532 
032536 
032542 
032544 
032546 
032552 
032556 


DISK SIMULATION 


000000 
000400 
000000 


011137 
012102 
012137 
010046 
010146 
010246 
010346 
010446 
012701 
012763 
012723 
005301 
001374 
013700 
013746 
163716 
011637 
012604 
003737 
001403 
012737 
012703 
004737 
013723 
805302 
001372 
005704 
001406 
004737 
013723 
005304 
001372 
005037 
012701 
004767 


MACY11 27(657) 


032376 
031730 


000016 
633742 
4177777 


001652 
032400 
032376 
032402 


477777 
032734 
032164 
032162 


027132 
000002 
177402 


0271332 


ISeAPRe7S5 
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PSSSHSSHSSSSSSHSHSSHSSHHSSHSSSHHSHHOGHHHOHHHHSHHOHHHHHOOHSSHOHSEOOOS 
pWRITE DATA 
PSSSSSOHSSSSHSSHSHHSHSSSOHSHSHHSHHSHHSHSSHOHHHHHOHHHEHOHHSOHHOHOOO 


COUNTDSs 
FORMAT? 
ZWORDSs 
WRDATAS 


768 


484 
S61 


MOV 
MOV 
MOV 


(RI), 
(Ri)¢, 
(Ri)o, 
R@,°( SP) 
Rice (SP) 
R2,°( SP) 
R3.°( SP) 
R4,°( SP) 
O14e0 
@TOLGAP, 
he 

Ri 


is 
GeRHAR, 
@eFORMAT 
@eCOUNTD 
(SP), 002 
(SP) ¢e 
eeTsecc 
78 
@°4,00TS 
eDISK, 
PCe 
@OWWORD, 
R2 


8 
@eTSECCG 
O26 
PCe 


OeCOUNTD 
R2 
CeCOMPA 


Ri 
R3 
(R3)¢ 


Re 

’ 

’ 
WORDS 
R4 


ECCG 

R3 
OowRITE 
CR3)¢ 


pSTORE NO, OF WORDS TO BE WRITTEN 
pSAME IN R2 
sCOMPARE OR NOT 
spPUSH R@ OW STACK 
ppPUSH RY ON STACK 
s9PUSH R2 ON STACK 
ppPUSH R3 ON STACK 
ppPUSH R& ON STACK 
9NO, OF TOLERANCE GAP WORDS 
pSTART OF TOLERANCE GAP TABLE 
SMAKE If 177777 
938 14 COMPLETED 
9itF WO BRANCH 
sR@ CONTAINS MAINTANENCE REG, 
©( SP) 
(SP) 
gNO, OF ZERO WORDS TO BE WRITTEN 


38 THIS An ECC TEST 

sBRANCH IF WO 

pTHESE BITS ARE TO GENERATE ECC 
pGIMULATED DISK AREA 

pWRITE OW SIMULATED DISK 

s6TORE ON SIMULATED DIgk 


pANY ZEROS TO BE WRITTEN 


pBRANCH 
OOWRITE 


Ri 
WRITE 


IF NONE TO BE WRITTEN 
sWRITE ZEROS ON SIMULATED DISK 
(R32 »sSTORE 


sNO MORE ECC TO BE GENERATED 
pWRITE ECC, AND ECC2 ON SIMULATED DISK 








a 


: 


MAINDEC 11 eDERPTASA 
DERPTA,Pil 


10406 
10407 
10408 
104¢9 
10410 
10411 
10412 
10413 


032562 
032566 
03257¢ 
032572 
032576 
032602 
032606 
032612 
032616 
032620 
032622 
032624 
032626 
832630 
032632 
032634 


032636 
032704 
032706 
032716 
032720 
032732 
032734 
032734 
033734 
033736 
033740 
033742 


013723 
005301 
001372 
004767 
013723 
012701 
004737 
013723 
005301 
001372 
012604 
012603 
012602 
012601 
012600 
000201 


000400 
000001 
000001 
000001 
000016 


MACY31 27(687) 
OISK SIMULATION 


177366 
032162 
000016 
032164 
032162 


ISeAPRe75 


MOV 
DEC 
BNE 
JSR 
MOV 
MOV 
JSR 
MOV 
DEC 
BNE 
MOV 
MOV 
MOV 
MOV 
MOV 
RTS 
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@eWWORD, (R3) 
RY 

58 

PC, WRITE 
@ewWORD, (RI) 
@1460 Rd 
PC, OOWRITE 
OeWWORD, (RI) 
Ri 

6s 

(SP)o,R4 
(SP)o,R3 
(SP)o,R2 
(SP)¢,R1 
(SP)o,RO 

Ri 


pSTORE ON WEEC’ AND WEEC2 


SWRITE DATA GAP 
s STORE 


pWRITE TOLERANCE GAP ZEROS 
STORE 


p9POP STACK INTO R4 
59POP STACK INTO R3 
99POP STACK INTO RZ 
99POP STACK INTO Ri 
99P0P STACK INTO RO 


POOROSOEHOCOEOSEOEOSOOESHOEHODOOHOHOEHOCHLOSEHOSOHOOOHOOOHOROETS 
pWRITE HEADER AND DATA 


4 

sTHIS 18 THE SIMULATED DISK 
pONLY OWE SECTOR OF SPACE 18 ALLOWED 

J ORSOOCSHOOECEHOS DOSES OLOOHOHOCOO HORSES HOOEHSOHHSODHOOHOREHOCODS 


SECGAPs 
WSSYNCS 
HEADERS 
werCs 
HEGAPs 
HDWSYNs 
SILOTBs 
DISKs 
WECCis 
WECC28 
DTAGAPs 
TOLGAP? 


»BLKW 
»BLKW 
»BLKW 
BLEW 
»BLKW 
»BLKW 


»BLKW 
BLK 
oBLKw 
»BLKW 
»BLKW 


o> om om oF AD = OF es & we ee 


SSECTOR GAP 38 BYTES OF @ 

sSECTOR GAP 1 BYTE OF © ONE SYNC BYTE 
SHEADER & CYL, SECTOR/TRACK, KEY{, KEY2 
sCac 

sHEADER GAP 10 BYTES OF © 

pHEADER GAP 4 BYTE OF @ ONE SYNC, BYTE 


pUSED IN SILO TEST AS SILO TABLE 


sDATA SPACE 

pECCcs 

sECC2 

pDATA GAP 2 BYTES OF @ 
pTOLERANCE GAP 26 BYTES OF @ 





3 


MAINDEC*{1eDERPTACA 
DERPTA,Pii 


10456 
10457 
10458 
10459 
10460 
10461 
10462 
10463 
10464 
10465 


033776 
034002 
034010 
034012 
034014 
034016 
034020 
034022 
034024 
034032 
034040 
034044 
034050 
034054 
034060 
034062 
034066 
034072 
034076 
034102 
034106 
034112 
034116 
034122 
034124 
034126 
034130 
034132 


DISK SIMULATION 


011637 
162737 
010046 
010146 
010246 
010346 
010446 
010546 
012777 
082777 
013746 
042716 
012637 
004137 
000000 
012703 
010137 
010137 
610137 
010137 
010137 
010137 
004137 
000000 
e0e0ee 
000000 
000000 
000000 


000240 


MACY11 27(657) 


000001 
000001 
034124 
177740 
034060 
035032 


060240 
034134 
034136 
034140 
034142 
034144 
034146 
034216 


145620 
145872 
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POSOSSSOSSSHSSSHSHSSSHSOSSSSHHSHOHHHHHHHSSHHOSHHHSHHHHHOHOEEOOOOD 
pWRITE HEADER AND DATA 
PSSSSSSSSHSSSHHHSSESHHHSSHSHSHHHHSHHHSHHHSHHHSHHHHHHHHSHHOSHSHOSOHO® 


COMWHDs MOV 
SUB 
MOV 
MoV 
MoV 
nOV 
MOV 
MOV 
MOV 
B18 
MOV 
Bic 
MOV 
JER 
WIRKe «WORD 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
WCYLs ® 
WSECTRe @ 
WKEYis @ 
WKEY2: @ 
GCRCs 8 


PSYNERs NOP 


(SP), 0ePCUSR 
04,0ePCUSR 
RO, °( SP) 
Riee( SP) 
R2,°( SP) 
R3,°( SP) 
R4,°e( SP) 
RS,°( SP) 
@OMD, ORHMR 
060, @RHCSi 
@ewSECTR, 
0177740, 
(SP)o, GOWTRK 
Ri, @eSEARCH 
8 

@onNOP, RY 
Ri, C@OSEGPER 
Ri, OOFSYNER 
Ri, @@ERHEAD 
Ris @eERCRC 
Ry, OOERHDGP 
Ri, CeHDESYN 
Ri, @OWRHEAD 


sSAVE PC OF JSR © 4 
pSAVE PC OF JSR 
99RPUSH R@ ON STACK 
p9PUSH Rg ON STACK 
99PUSH RQ OW STACK 
p9PUSH R3 OW STACK 
ppPUSH R4 OW STACK 
s9PUSH RS OW STACK 
pSET DIAGNOSTIC MODE 


°(8P) 9GET DESIRED SECTOR/TRACK 
(sP) pMAKE ONLY SECTOR 
sSAVE SECTOR 
9D0 SEARCH SECTOR 
pSECTOR NO, 
sGOING TO MOVE NOPS 
sNOP INTO SEGAP 
sNOP INTP FSYNER 
pNOP INTO ERHEAD 
sNOPINTO ERCARC 
pNOP INTO ERHDGAP 
pNOP INTO HDESYN 


sCYLINDER 

sSECTOR AND TRACK . 
gKEYy 

pKEY2 

96000 Cac 


IF "ERROR 6° INSERTED BY 

pWRHEAD SUBROUTINE THEN 

sSECTOR GAP GOING OW DISK 

p26 NOT RIGHT 

pWORD NO, CONTAINS WHICH 

pWORD 28 WRONG THAT 18 

sFIRGT OF TENTK OR WHAT EVER HO, 
BAD WORD 18 WHAT I8 GOING OW DISK 
pF "ERROR 6° INSERTED BY . 
SWRHEAD SUBROUTINE THEN 

pTHE LAST @ BYTE OF SECTOR 

GAP OF FIRST SYNC, BYTE 

pAFTER SECTOR GAP 26 IN 

pERROR 

SWORD NO, CONTAINS 20 

sRIGHT BYTE 38 SECTOR GAP 








° @ 8 @ 
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10505 
10506 
10507 
10508 
10509 
16510 
10S11 
10512 
10513 
10514 
10515 
10516 
10517 
10518 
10519 
10520 
10$21 
10822 
10523 
10524 
10525 


10827 
10528 
10529 
10530 
10531 
10532 
10533 
10534 
10535 
10536 
10537 
10538 
10539 
10540 
10541 
10542 
10543 
10544 
10545 
10546 
10547 
10548 
10549 
10550 
10551 
10552 
10553 
10554 
10555 
10556 

(2) 

(2) 


034142 


034144 


034146 


034150 
034154 
034156 
034162 
034164 
034166 
034166 
034170 


MACYi1 27(657) 


DISK SIMULATION 


000240 


005737 
001004 
004137 
800000 
000000 


012605 
012604 


001774 
032404 
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ERHEAD!: NOP 


ERCRCs NOP 
ERHDGPs NOP 
HDESYNs NOP 
TST 
BNE 
JSR 
FNWORDs ,WORD 
e WORD 
FOUTS 
MOV 
MOV 


OCERFLGS 
FouT 
eet 


(SP)o,RS 
(SP)o,R4 


pLEFT BYTE 18 SYNC, BYTE 
sBAD WORD 18 WHAT I8 GOING OW 
pOISK 


pIF "ERROR 6° INGERTED BY 
SWRHEAD SUBROUTINE THEN 
pHEADER GOING ON DISK 

918 WRONG 

sWORD WO 4 @& CYLINDER NO 
sWORD NO 2 @ SECTOR/TRACK 
pWORD WO 3 @ KEY) 

sWORD NO @ @ KEY2 

p8AD WORD 18 WHAT I8 GOING ON 
sOI8K 


IF "ERROR 6° INSERTED BY 

SWRHEAD SUBROUTINE THEN CRC WRITTEN 

pON DISK I6 IN ERROR 

sGOOD DATA I8 WHAT SHOULD BE OW DISK 
sBAD DATA 16 WHAT 38 GOING OW DISK 
sWORD HO 18 § 


IF °ERROR 6° INSERTED BY 

SWRHEAD SUBROUTINE THEN HEADER 
sGAP GOING OW DISK 18 WRONG 

pWORD NO GIVES WHICH OF 

pTHE HEADER GAP WORDS 

pARE WRONG, FOR EXAMPLE 

sWORD NO 4 @ FIRST HEADER 

5 GAP WORD 

sBAD WORD I6 WHAT O68 GOING ON DISK 


pIF "ERROR 6° INSERTED BY 

SWRHEAD SUBROUTINE THEN LAST 
pHEADER GAP BYTE OR HEADER 

p8YNC BYTE GOING ON DISK I8 WRONG 
WORD NO @ § 

#BAD DATA 18 WHAT I8 GOING 

gON DISK RIGHT BYTE 18 HEADER 
sGAP @ BYTE, LEFT BYTE 18 HEADER 
sGAP SYNC, 


pARE ANY ERRORS DETECTED 
IF YES BRANCH 
SFORMAT COMMAND NO, OF DATA 


99POP STACK INTO RS 
p9POP STACK INTO RE 


r 








| 





MAINDEC@1 1 e¢DERPTASA MACY11 27(687) {SeAPRe7S 17845 PAGE 44¢127 
DERPTA,Pi1 DISK SIMULATION 


(2) @34172 612603 MOV (SP)o,R3 s9POP STACK INTO R3 

(2) 034174 012602 MOV (SP)o,R2 p9POP STACK INTO R2 

(2) 034176 012601 MOV (SP)¢o,R4 p9POP STACK INTO Ry 

(2) 034200 012600 MOV (SP)¢,R@ 99POP STACK INTO RO 
10557 034202 000207 RTS pC 


10564 POOF SEFFOSGHOGOGIGFOTGOTEHS OST IOETEGCH HOD OOO ROCOFEOOOEDSON STOOGES 
10565 pWRITE HEADER 
10566 PSSSSOSCOSESSSEOHE SOO GOGREOGHGCEDGIGT HV IO OH OD OSOOOVGCOGHITHEOEOORD 


10572 RO @ MAINT, REG,» Ri © SIMULATED DISK; RZ & BYTE COUNT) RJ & WRITE WORD; RS & WORD COUNT 


10576 034204 980000 scyLs 6 
10577 034206 800000 SSECTR: 6 
10578 034218 #00000 SKEYi: 6 
10579 034212 6800000 SKEY2: @ 
10580 634214 #900000 scrcs @ 


10563 0834216 612137 034204 WRHEAD?s MOV CRI), B08CYL 

10584 034222 012137 034206 MOV (Rides OOSSECTR 

10585 034226 012137 034210 MOV (Ride, SOOSKEY, 

10586 034232 012137 034212 MOV (Ride, SOOSKEY2 

10587 034236 012137 034214 MOV (Ride, 888CRC 

10588 034242 010146 MOV Rie CSP) s9PUSH Ry ON STACK 

10569 034244 612761 032636 MOV OSECGAP, Ri SSIMULATED DISK INDICATOR 
10598 034250 043700 004682 MOV GOORHMR, RO pRO NOW HAS MAINT, REG, ADDR, 
10591 034254 012710 9090001 MOV SOMD, ORO 98ET DIAG, MODE 

10592 034260 612785 990002 Mov 020 RS sWORD COUNTER 

10593 034264 052710 seee10 B18 OMSTCK, ORO pSET SECTOR FOR FIRST BYTE 
10594 034270 012718 600013 18s MoV OMSTCKIMCLKIDMD,ORO,SET SECTOR, CLOCK, DIAG, MODE, RESET INDEX 
10595 034274 0632718 #00040 BIT OMuRe = §=6ORO sCHECK walTE BIT IN MAINT, REG, 
10596 034300 001403 BEQ 26 

10597 034302 900261 sec pSET CARRY 

10598 034304 006003 ROR R3 sMOVE ONE FORWARD 

10599 634306 660402 BR ae i 

10600 034310 000241 ase CLC sCLEAR CARRY 

10601 034312 096003 ROR R3 sMOVE SEARO FORWARD 

10602 034314 012718 e6ee0i 36% MOV @DMD, ORO pCLEAR CLOCK, SECTOR 

10603 034320 0612702 #09007 MOV 07, R2 pBXYTE COUNTER 

10604 034324 052718 #900002 any B18 OMCLK, ORO s8ET CLOCK 

10605 034330 632718 #eee040 SIT CHUR, ORO pCHECK WAITE BIT IH MAINT, REG, 
10606 034334 001403 BEQ ae sBRANCH IF ZERO 


P 
Y 


_ 





. a 
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10607 034336 
106068 034340 
10609 034342 
10630 034344 
10611 034346 
10612 034350 
10613 034354 
10614 034356 
10615 034360 
10616 034362 
10617 034364 
10618 034366 
10619 034370 
10620 034372 
10621 034400 
10622 034404 
10623 034410 
10624 034416 
10625 634422 
10626 2834426 
10627 034434 
10628 0344420 
10629 034444 
10630 034446 
10631 034452 
10632 034456 
10633 034464 
10634 034472 
10635 034474 
10636 034476 
10637 

10638 

10639 

10640 

10641 034500 
10642 034504 
10643 034506 
10644 

10645 034512 
10646 034516 
10647 034522 
10648 034524 
10649 034532 
10650 034540 
10651 034544 
10652 034552 
10653 034554 
10654 034560 
10655 034564 
10686 9034572 
10657 034576 
10658 034602 
10659 034604 
106620 


Beee@eeeeeeee& & &e ee eletlhlOle le 


MAINDECe11eDERPTASA 
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000261 
006003 
000402 
000241 
006003 
012710 
005302 
001362 
005305 
001342 
010321 
005763 
001414 
612737 
005037 
010337 
012737 
000137 
012702 
012737 
004737 
013721 
001413 
160237 
005037 
013737 
012737 
000554 
005302 
021353 


005737 
001147 


004737 


013711 
023721 
001414 
012737 
013737 
014137 
012737 
000524 
012702 
012703 
012737 
004737 
013711 
022321 
001412 


MACY11 27(687) 


000001 
001124 
061126 
104006 
035024 
000022 


600024 


032164 
032162 


031136 
001124 
032162 
104006 


002014 
032164 


032162 
031120 


000024 
031120 
001126 
104006 


060084 
034204 
000005 
032164 
032162 


034134 


031136 


034136 


ISeAPRe75 


768 
10838 
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pSET CARRY 
R3 gMOVE OWE FORWARD 


R3e (Ride 


78 

81, @6ERWORD 

@e8GDOAT 

R3, @eSBDDAT . 

104206, 0¢SEGPER 

00178 pBRANCH OUT 

018.5 R2 COUNT NO, OF SECTOR GAP 
$20,,@8ERWORD COUNT TO GIVE ERROR WORD 
PC, @OWRITE pWRITE SECTOR GAP 


@eWWORD, (RI Do pSTORE SECTOR GAP WORD 

116 

R2,O68ERWORD IF NOT GET ERROR WORD NO, 

@8S6GDDAT 9GOO0D WORD 

OeWWORD, OCSBDDAT + BAD WORD 

0104006, 0eS5EGPER sSTORE "ERROR 6° IN SEGPER 
176 sBRANCH OUT 

R2 SHAVE 18 WORDS OF ZEROS BEEN WRITTEN 
106 sIF NOT BRANCH 


pAT THIS POINT THE SECTOR FOUND FLOP SHOULD 


80 THAT THE HEADER SYNC BYTE CAN BE GIVEN 


pHOWEVER IN THE DRIVE TIMING ERROR TEST THE REST OF THE ROUTINE 
918 ABORTED 


TST 
BNE 
JSR 


MOV 
CMP 
BEQ 
MOV 
MOV 
MOV 
MOV 
BR 

MOV 
MOV 
MOV 
JER 
MOV 
CmP 
BEG 


OsTESOTE 916 THIS A DRIVE TIMING ERROR 

i768 & pBRANCH OUT IF YES 

PCy GOWRITE WRITE ONE SECTOR GAP 8 BYTE 
pAND ONE SYNC, BYTE @ 230 


@eWWORD, (Ri) SSAVE @ BYTE AND SYNC BYTE 
OORSYNC, (RID® fIF SYNC, BYTE RIGHT 

128 ptf YES BRANCH 
620,,@8ERWORD jIFf NOT GET READY FOR ERROR 
OORSYNC, O8SGDDAT 9GO00D WORD 
©(R1),@86BDDAT BAD WORD 

6104006, OOF SYNER pINSERT "ERROR 6" IN FSYNER 
i768 sBRANCH OUT 

04, R2 sFOUR HEADER WORDS 

@SCYL, R3 sPOINTER FOR HEADER TABLE 
65, @eERWORD pERROR WORD NO SET 


PC, OOWRITE ;WRITE 4 HEADER WORDS 


@oWWORD, (RI) SSTORE WRITTEN WORD 
CR3)e, (RID® p18 IT RIGHT? 
146 sIF GOOD BRANCH 


sIF NOT GET READY FOR PRINT 


> 
G 








| 
= 
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10661 034606 
10662 034612 
10663 0634616 
10664 034622 
10665 034630 
10666 034632 
10667 034634 
10668 034636 
10669 034642 
10670 034646 
10671 634652 
10672 034654 
10673 034660 
10674 034666 
1067S 034674 
10676 034702 
10677 034704 
10678 034710 
10679 034716 
10660 034722 
10681 0634726 
10662 034730 
10683 034734 
10664 034740 
10685 934744 
10666 034752 
10687 934754 
10688 034756 
10689 634760 
10690 634764 
10691 63477¢@ 
10692 034774 
10693 034776 
10694 635004 
10695 0350106 
10696 935016 
10697 035024 
(2) 0635024 
10698 035026 
10699 
10700 
10701 
10702 
10703 
10704 
10705 
10706 
10707 
10708 
10709 
10710 
10711 
10712 
10713 
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166237 
014337 
014137 
012737 
000475 
005302 
001353 
004737 
013711 
022137 
001414 
014137 
013737 
012737 
012737 


(000450 


012702 
012737 
004737 
013721 
001412 
160237 
005037 
614137 
012737 
000424 
005302 
001354 
004737 
013731 
023721 
001413 
012737 
014137 
013737 
012737 


012601 
000201 


MACY11 27(657) 


031136 
061124 
001126 
104006 


032164 
032162 
034132 


001126 
034132 
0000058 
104006 


eceeees 
000806 
032164 
032162 


0321646 
032162 
031120 


034140 


001124 
031136 
034142 


034144 


001124 
034146 
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1463 DEC 


2068 MOV 
156% MOV 


1788 


pSEARCH SECTOR 


POSSSSSSGHOHSHHHHHOHHOHHSHEHOSHHSHSOHHHHSHHOHHHHHOHSHHOHOSOOROOO® 


R2,OSERWORD sWORD NO 
@(R3),O88GDDAT GOOD DATA 
©(R1),@86BDDAT  ;BAD DATA 


9164006, 00ERHEAD pINSERT “ERROR 6° 
i768 pBRANCH OUT 

R2 pARE @ HEADER WORDS DONE? 
138 IF NOT BRANCH 

PCe GOWRITE ;WRITE CRC 

OOWWORD, (Ri) pSTORE CRC 

(R1)¢,0eGCRC sCOMPARE GOOD CRC 

208 sBRANCH IF GOOD 


©(R1),O086BDDATA BAD CRC WRITTEN 
OeGCRC,O88GDDAT »GOOD CAC 


9S, @eERWORD pERROR WORD NO 

Set iaaiag SINSERT ERROR 6 

a 

6S, R2 94O OF HEADER GAP 

06, O6¢ERWORD pERROR WORD NO SET 

PC, COWRITE sWRITE HEADER GAP 

OOWWORD, (RID® ;STORE 

iéa sIF GOOD BRANCH 

R2, O@SERWORD sERROR WORD NO 

OeSGDDAT 9GO0D DATA 

©(R1),C08BDDAT  3BAD DATA 

6104006, OSERHDGP pSTORE "ERROR 6° 
176 pBRANCH OUT 

R2 pARE § HEADER GAP ZEROS DONE 

156 IF NOT BRANCH 

PC, COURITE 

OOWWORD, (Ri) 

OORSYNC, (Ri)o 

178 

05, @0@ERWORD 

©(Ri), O86BDDAT 

OoRSYNC, OeSGDDAT 

01040906, @0HDESYN 

en s9POP STACK INTO Rj 
i 






,e«e8eeeeeeeee?eee@e?eeeeeeeeeee ®@ 
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10714 
10715 
10716 
10717 
10718 


035032 
035036 
035040 
035042 
035044 
035046 
035050 
035052 
035056 
035062 
035066 
035072 
035076 
035102 


035106 
035112 
035116 
035120 
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012137 
010046 
010146 
010246 
010346 
010446 
010546 
013700 
0137063 
012710 
032710 
042716 
052716 
042710 


052710 
012718 
005703 
001461 


001682 
035030 
000001 
066016 
000018 
000018 
oeecie 
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ROSRHMR ADDRESS 

Ri@PASSED ARGUMENT (SECTOR SEARCHED FOR) 

R2eCLOCK COUNT (PER BYTE) 

R3eSECTOR COUNTER FROM RU 

RSeBYTES PER WORD COUNT 

sBEBORE INDEX 18 GIVEN TWO SECTOR CLOCKS ARE GIVEN TO RESET 
pSECTOR PULSE IN CASE IT I8 SET 

gAT BEGINNING OF EACH SECTOR OWE SECTOR CLOCK HAS TO RISE 
pBEFORE CLOCK THEN EVERY EIGHT CLOCKS ONE SECTOR CLOCK I8 
pIDENTICAL WITH CLOCK 

pNUMBERING THE SECTOR CLOCKS AS FOLLOWS 

sTHE SECTOR CLOCK UNDER INDEX © 6 

pTHE NEXT © 1 

= WEXT © 2 

i ° 

pTHEN THE LAST SECTOR CLOCK IN ONE SECTOR HAS NUMBER © 608 
pTHE WEXT SECTOR THEN HAS 608 SECTOR CLOCKS 

pTHE WEXT SECTOR THEN HAS ANOTHER 600 SECTOR CLOCKS 


pAND 80 ON 
Stctrs @ sSECTOR SEARCHED FOR 
SEARCHs MOV (Rides, OOBSECTR ;SAVE SECTOR SEARCHED FOR 
MOV RO, °( SP) s9PUSH RO ON STACK 
MOV Riee(SP) pePUSH RY OW STACK 
MOV R2e°( SP) p9PUSH RQ OW STACK 
MOV R3,°C SP) 99PUSH RZ ON STACK 
MOV R4,°( SP) sePUGH R4 OW STACK 
MoV RS,°( SP) spPUSH RS OW STACK 
MOV OORHHR, RO pNOW Re HAS MAINTENANCE REG, ADR, 
MoV OeSECTR,RI pSECTOR COUNTER 
MOV @DMD, ORO p8ET DIAGNOSTIC MODE 


B18 @MSTCK, ORO sGET SECTOR CLOCK 

BIC OMGTCK, ORO sCLEAR SECTOR CLOCK 

BIs OMSTCK, ORO pSET SECTOR CLOCK 

BIC OMSTCK, ORO sCLEAR SECTOR CLOCK 
THE ABOVE TWO SECTOR CLOCKS ARE GIVEN FOR 
pRESETING SECTOR PULSE 
p38 CASE If STARTS SET 

BIS OMINXIMSTCK,ORO ,SET INDEX AND SECTOR CLOCK 


MOV @DMD, ORO SRESET INDEX AND SECTOR CLOCK 
T6T R3 IF SECTOR REQUIRED JUMP OUT 
BEO 78 pBRANCH OF BECTOR ZERO REQUIRED 


pNOW THE 364 WORDS WILL START 


pFOR FIRST BYTE SECTOR CLOCK WILL GO HIGH THEN CLOCK WILL GO HIGH 
pBOTH WILL COME DOWN TOGETHER THEN SEVEN CLOCKS WILL BE GIVEN 
p9FOR SECOND BYTE AND ALL OTHER BYTES TILL NEXT SECTOR SECTOR CLOCK 








ie 
° 
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° DERPTA,P11 DISK SIMULATION 
10763 }WILL BE IDENTICAL WITH ONE CLOCK 
10764 
® 10765 
10766 }ONE WORD ONLY 
10767 
e 10768 035122 012702 eeee1e TT MOV 00.e = R2 IBYTE COUNTER 
10769 035126 012708 @000e2 MOV 82, RS ;BYTES PER WORD 
e 10770 035132 082718 eeeeie B18 OMSTCK, ORO 18ET SECTOR CLOCK 
10771 035136 @82710 eeeece2 B18 ONCLK, ORe $8ET CLOCK 
10772 035142 000602 BR 38 SBRANCH TO CLEAR SECTOR AND CLOCK 
10773 035144 52710 e002 aes ST OMSTCKIMCLK,OR@ jSET SECTOR AND CLOCK 
& 10774 0353180 042710 900032 368 BIC OMSTCKIMNCLK,@RO sCLEAR SECTOR AND CLOCK 
10775 35154 82718 eee0ee2 rT als ONCLK, ORO 18ET CLOCK 
e 10776 035160 042710 e00002 Ic ONCLK, ORO ;CLEAR CLOCK 
10777 038164 005302 DEC R? )BYTE COUNTER 
10778 038166 001372 BNE as SORANCH IF BYTE NOT COMPLETE 
10779 035170 012702 00007 MOV 07 R2 }8ETUP FOR SECOND BYTE 
€ 10760 035174 088305 DEC RS $18 WORD COMPLETE? 
10781 035176 001362 BNE 28 pBRANCH IF NOT COMPLETE 
e 10782 $70 GIVE SECTOR CLOCK AND CLOCK 
10783 
10704 
° 10785 sNOW 303 WORDS ARE LEFT AND ALL ARE IDENTICAL 
10786 
10787 ©35200 012701 900487 MoV 0303,. Ri SWORDS PER SECTOR COUNTER 
10708 035204 012708 #00002 aes MOV 02> aS )BYTES PER WORD COUNTER 
c 10789 035210 012702 #000e? S68 MOV 7» R3 pBYTE COUNTER (CLOCK COUNTER) 
10790 035214 052718 000012 Bis OMSTCKIMCLK,@R@ sSET SECTOR CLOCK AWD CLOCK 
9791 @35220 042710 900012 Bic OMSTCKIMCLK,OR@ ;CLEAR SECTOR CLOCK AND CLOCK 
© 9792 035224 052710 ee00e2 683 ars ONCLK, Ong $8ET CLOCK 
10793 035230 042718 eeeee2 BIC @NCLK, ORO PRESET CLOCK 
e 10794 035234 008362 DEC R2 928 BYTE COMPLETE? 
1079S 035236 001372 BNE 68 pBRANCH IF NOT COMPLETE 
10796 035240 008305 DEC RS p28 WORD COMPLETE? 
e 10797 635242 001362 BNE $8 pORANCH IF NOT 
10798 035244 90530) DEC Ri $18 SECTOR COMPLETE 
10799 035246 901356 BNE 48 sORANCH IF NOT 
10808 035250 052710 seeeie Bis eMSTCK, ORE }8ET SECTOR 
€ 10001 035254 042718 eeeeie erc OMBTCK, ORE pCLEAR SECTOR 
10002 035260 605303 DEC R3 $18 REQUIRED NO OF SECTORS COMPLETE 
10803 035262 001317 BNE 18 sBRANCH IF NOT 
€ 10004 
10005 035264 188 
(2) 035264 012605 Mov (8P)¢,RS }pPOP STACK INTO RS 
€ (2) 35266 012604 MOV (SP)¢,R4 $9POP STACK INTO RO 
(2) 035270 012603 MOV (8P)o,R3 19POP STACK INTO R3 
© (2) 035272 012602 MOV (8P)¢>R2 1pPOP STACK INTO R2 
(2) 035274 012604 MoV (SP)¢,Ri 19POP STACK INTO Ri 
(2) 035276 012600 MOV (8P)o,Re 1pPOP STACK INTO R@ 
10806 035300 000201 RTS Ri 
€ 10807 
10808 
€ 10609 $90000000 0000 000000000000000000000000000000000000000000 000000008 
10010 pREAD ONE SECTOR OF DATA 
€ 
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10611 
10612 
10613 
10614 
10615 
10816 
10617 
10618 
10019 
10620 
10621 
10622 
10623 
10624 
10625 
10626 
10627 
106286 
10629 
10930 
18431 
10132 
10433 
10134 
10135 
10636 
10637 
106386 
10639 

(2) 
106400 
106¢1 
106¢2 
106¢3 
10044 
10645 

(1) 

(3) 

(1) 

(4) 
10646 
10647 
10848 
10849 
10650 
10651 
10632 


035306 
035312 
035316 
035320 
035324 
035326 
035334 


035340 
035344 
035350 
035354 
035356 
035360 
035364 
035366 
035372 
035376 
035402 
035406 
035410 
035412 
035412 
035414 


035416 
035416 
035422 


035446 
035446 
035450 
035456 
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012137 
012137 
010146 
008737 
001403 
012737 
012762 


012763 
012337 
004737 
003362 
001372 
008737 
601012 
005037 
012702 
012337 
004737 
005302 
001372 


104400 
000411 


104402 
012777 
000000 


035302 
035304 


477777 ©027132 
000402 


032734 
031726 
031732 
002012 
027132 
000017 


031726 
033732 


@35416 144142 
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RNOS e 
RCOMs ® 


REDATAs MOV (RI), 6eRNO 
MOV (RI )o,0eRCOM 
MOV Ri,e(SP) 
T8Tt @eTSECC 
BEQ is 
MOV @°e1,0eTSECCG 
ise MOV 02586,,A2 
MOV @OISK,R3 
aes MOV (R3)¢,0@WORD 
JSR PC, @eREAD 
DEC R2 
BNE 28 
TsT @eTSECC 
BNE 4g 
CLR OeTSECCG 
MOV @15,0R2 
3g8 MOV (R3)¢,0eWORD 
JSR PC. @SREAD 
DEC R2 
BNE 38 
48% 
MOV (SP)o Ri 
RTS Ri 
RPVECT?s 
TYPE 0904 
BR 648 
99 -ASCIZ 
6468 
tTypoc 
MOV @RPVECT, ORPVEC 
HALT 


9NO, OF WORDS READ 
pEXTRA STORAGE 


sSAVE NO, OF WORDS ONLY FOR INFORMATION 
pEXTRA WORD ONLY FOR INFORMATION 
pePUSH Ri OW STACK 
938 THIS AW ECC TEST 
pBRANCH IF NO 
sTHESE BITS ARE TO GENERATE ECC 
9256 WORDS PER SECTOR 
pPLUS 2 ECC WORDS 
pPOINTE TO DISK SIMULATION 
pREADY TO READ CONTENTS 

pREAD 
p28 286 WORDS DONE? 
gIf NOT BRANCH 
938 THIS AN ECC TEST 
sBRANCH OUT IF YES 
9NO WORE ECC BITS ARE TO BE GENERATED 
pONE DATA GAP, 14 TOLERANCE Gap 
pREADY TO READ CONTENTS OF WORD 
pREAD 
sCOUNT 
pBRANCH IF 34 NOT DONE 


p9POP STACK INTO Ri 
RETURN 


seTYPE ASCIZ STRING 
99GET OVER THE ASCIZ 


/TRAPED FROM PC @ / 


sTYPE FROM PC 
pRESTORE TRAP RPO VECTOR 
pCHANGE TO CONTINUE 


E13 
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035460 
035460 
035464 


035470 


035474 
035500 
035500 
035504 


035510 
035514 
035522 
035526 
035532 
035534 
035536 
035542 
035544 
035544 
035552 
035554 
035562 
035564 
035570 
035572 
035600 
035602 
035610 
035612 
035620 
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005037 
005037 


005037 


005037 


006137 
100511 


000416 


013746 
012737 
008737 
012637 
000463 
022626 
012637 
000423 


032737 
001404 
123767 
001462 
108767 
001421 
126767 
101015 
032737 
001404 
016767 
000443 
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027132 


002014 
1778768 


0090004 
035534 
177060 
oe00e4 


660408 
177870 
1433413 
143317 
001008 
143272 


177870 
143320 


143303 
177870 
143266 
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eSBTTL SCOP 


E HANDLER ROUTINE 


p@THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS, IT WILL INCREMENT 
p@AND LOAD THE TEST NUMBER(OTSTWM) INTO THE DISPLAY REG, (DISPLAY<710>) 
p@AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:00> 

p@THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


peSwi4ae4 LOOP ON TEST 
poswiies INHIBIT ITERATIONS 
peSveggay LOOP ON ERROR 
9eswessi LOOP ON TEST IN SWR<730> 
p@CALL 
9° SCOPE 99 SCOPESlOT 
SOSCOPEs 
CLR @enOsyYNCc sCLEAR FLAG FOR HEADER ERROR COMMANDS 
CLR @eTSECC pCLEAR FLAG FOR ECC TEST 
pWHEN 04377777 IT 36 AN ECC TEST 
pWHEN e@ IT 16 NOT AW ECC TEST 
CLR @eTSECCG pEVEn In An ECC TEST EVERY CLOCK 
928 NOT TO GENERATE ECC 
pIF 2177777 GENERATE ECC 
sIF e@ DO NOT GENERATE ECC 
CUR OeTESOTE pORIVE TIMING ERROR TEST 
168 
ROL @oswr 89LOOP ON PRESENT TEST? 
BMI sOVER peYES IF Swideag 
pOOCOOSTART OF CODE FOR THE XOR TESTERGOCe8 
OXTSTRe BR es 992F RUNNING ON THE *XOR® TESTER CHANGE 
p9THIS INSTRUCTION TO A *NOP* (NOPS240) 
MOV GeERRVEC,©(SP) 9 96AVE THE CONTENTS OF THE ERROR VECTOR 
MOV 058, 0eERRVEC 998ET FOR TIMEOUT 
T8T 0017766@ peTIME OUT ON XORP 
MOV (SP)o,CeERRVEC » ;RESTORE THE ERROR VECTOR 
BR 6SVLAD 9960 TO THE NEXT TEST 
56s Cup (SP) o,(SP)¢ p9CLEAR THE STACK AFTER A TIME OUT 
MOV Seren ppRESTORE THE ERROR VECTOR 
BR 99L00P ON THE PRESENT TEST 
66epeCCCCEND OF coos FOR THE XOR TESTERGOCOS 
BIT OBITOS, OOSWR 99L00P ON SPEC, TEST? 
BEQ 26 s9BR IF NO 
CuPB OoSWR,STSTNM 990m THE RIGHT TESTPSWR<720> 
BEQ sOVER 998R IF YES 
263 TSTB SERFLG goHAS AN ERROR OCCURRED? 
BEQ 38 s98rn IF nO 
Cups GERMAX, SERFLG 99MAX, ERRORS FOR THIS TEST OCCURRED? 
BHI 36 9p98R IF NO 
BIT OBI Te9, CoSWR 99L00P OW ERROR? 
BEQ 4B 998R IF WO 
768 MOV SLPERR, SLPADR 998ET LOOP ADDRESS TO LAST SCOPE 
BR SOVER 


+ 
\ 
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DERPTA,Pi1 SCOPE HANDLER ROUTINE 
(1) @35622 105067 143255 aey CLRB SERFLG 99ZERO THE ERROR FLAG 
(1) 035626 005067 143352 CLR OTIMES p9CLEAR THE NUMBER OF ITERATIONS TO MAKE 
(1) 635632 000415 BR is ppESCAPE TO THE NEXT TEST 
(1) 035634 032737 604000 177570 38:8 BIT OBITI1,@0SWR ppINHIBIT ITERATIONS? 
(1) 0389642 601011 BNE is p98R IF YES 
(1) 035644 005767 143230 TST SPASS s9IF FIRST PASS OF PROGRAM 
(1) 035650 001406 BEG is 8 INHIBIT ITERATIONS 
(1) ©35652 005267 143226 Inc SICNT peINCREMENT ITERATION COUNT 
(1) 035656 626767 143322 143220 CMP OTIMES, SICNT pe9CHECK THE NUMBER OF STERATIONS MADE 
(1) 035664 0602021 BGE SOVER 998R IF MORE ITERATION REQUIRED 
(1) 035666 612767 6800001 143210 i683 MOV 61,8ICNT pPREINITIALIZE THE ITERATION COUNTER 
(1) 035674 0616767 900044 143302 MOV OMXCNT,GTIMES  49SET NUMBER OF ITERATIONS TO DO 
(1) 035702 108267 143174 SSVLADs INCB OTSTNM pesCOUNT TEST NUMBERS 
(1) 035706 611667 143174 MOV (SP), S8LPADR S95AVE SCOPE LOOP AODRESS 
(1) ©35712 011667 143172 MOV (SP), S6LPERR 9p9SAVE ERROR LOOP ADDRESS 
(1) ©35716 605067 143264 CLR SESCAPE peCLEAR THE ESCAPE FROM ERROR ADDRESS 
(1) @35722 112767 900001 143165 MOVB @1,SERMAX p9ONLY ALLOW OWE(1) ERROR OW NEXT TEST 
(1) 035730 616737 143146 177578 sOVER: MOV GTSTNM,OODISPLAY »;OISPLAY TEST NUMBER 
(1) 635736 616716 143144 MOV SLPADR, (SP) ¢9FUDGE RETURN ADDRESS 
(1) 035742 000002 ATI seFIXES PS 
(1) 035744 600004 OMXCNTs 4 poMAX, NUMBER OF ITERATIONS 
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© DERPTA,Pil SCOPE HANDLER ROUTINE 
10657 $ 9900080000000 00000E000008000850000005000080000 0000000000 080008 
(1) 
& (1) eSBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
(1) 
€ (1) p@THIS ROUTINE I8 USED TO CHANGE A i6eBIT BINARY NUMBER TO A SeDIGIT 
(1) p@SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT, DEPENDING OW WHETHER THE 
(1) p@NUMBER 16 POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
€ (1) p@BEFORE THE FIRST DIGIT OF THE NUMBER, LEADING ZEROS WILL ALWAYS BE 
(1) p@REPLACED WITH SPACES, 
(1) p@CALLS 
a (1) 1° MOV NUM, ©(SP) pePUT THE BINARY NUMBER OW THE STACK 
(1) ,@ TYPOS 9960 TO THE ROUTINE 
(1) 
@ (2) 035746 OTYPDSs 
(3) ©35746 010046 MOV RO. °( SP) s9PUSH RO ON STACK 
(3) 035750 010146 MOV Riee( SP) pePUSH Rg ON STACK 
& (3) 035752 010246 MOV R2,°( SP) sePUSH RQ ON STACK 
(3) 035754 010346 MOV R3,°( SP) ppPUSH RZ OW STACK 
(3) 035756 910546 MOV RS, °( SP) pePUSH RG ON STACK 
& (1) 635760 012746 0620200 MOV €20200,°( SP) p96ET BLANK SWITCH AND SIGH 
(1) 035764 616605 900020 MOV 20(8P),RS p9GET THE INPUT NUMBER 
(1) 035770 100004 BPL is 99BR IF INPUT I8 POS, 
& (1) 035772 9054605 NEG RS poMAKE THE BINARY NUMBER POS, 
(1) ©35774 112766 @00658 00000; MOVB 6°=,4 (SP) peMAKE THE ASCII NUMBER NEG, 
(1) 0636002 905008 iss CUR RO s9ZERO THE CONSTANTS INDEX 
6 (1) 636004 012703 636162 MOV @eDBLK,R3 seSETUP THE OUTPUT POINTER 
(1) 036010 112723 seesede MOvB @° CRI) p9S8ET THE FIRST CHARACTER TO A BLANK 
(1) 036014 905002 aes CUR R2 seCLEAR THE BCD NUMBER 
@ (1) 636016 016001 0636152 MOV GOTBL( RO), Ri 99GET THE CONSTANT 
(1) 036022 160105 363 aus RieRS peFORM THIS BCD DIGIT 
(1) 036024 602402 BLT 4G p9BR IF DONE 
@ (1) 0636026 095202 Inc R2 seTNCREASGE THE BCO DIGIT BY 4 
(1) 03603@ 000774 BR 38 
(1) 636032 860105 463 ADD Ri, RS 9pADD BACK THE CONSTANT 
@ (1) 636034 605702 T8Tt R2 peCHECK IF BCO DIGI Tse 
(1) 636036 601002 BNE 8 peFALL THROUGH IF @ 
(1) 036040 105716 TsTB (SP) ppS8TILL DOING LEADING 9°s? 
@ (1) 036042 100407 BMI 78 po8R If YES 
(1) 636044 106316 58s ASLB (SP) p9MSDP 
(1) 0836046 103003 acc 66 $98R IF NO 
@ (1) @3605@ 116663 ©0000, 477777 MOVB 1¢6P),°4(R3) seYESeeSET THE SIGH 
(1) 636056 652702 #00060 665 BIg 0°O,Rn2 SeMARE THE BCD DIGIT AgcII 
(1) 036062 052702 #00040 768 BIs e* ,R2 soMARE IT A SPACE IF NOT ALREADY A DIGIT 
& (1) 036066 110223 MOVB R2eCR3)¢ p9PUT THIS CHARACTER IN THE OUTPUT BUFFER 
(1) 036070 605720 T8sTt (RO) peJUST INCRENENTING 
(1) 036072 620027 #00010 CMP Re, 010 peCHECK THE TABLE INDEX 
a (1) 036076 902746 BLT 26 9960 DO THE NEXT DIGIT 
(1) 6836108 603002 BGT 86 9960 TO Exit 
(1) 036102 610502 MOV RSeR2 99GET THE LSD 
€ (1) 636104 600764 BR 66 9960 CHANGE TO ASCII 
(1) 036106 405726 68s TSTB (SP)¢ poWAS THE LED THE FIRST NONeZEROP 
(1) 036110 100003 BPL 96 s98R IF WO 
es (1) @©36412 1316663 1477777 177776 MOVE *1(SP),°2(R3) spYESeeSET THE SIGN FOR TYPING 
(1) 036120 105013 96: CLRB (R3) $98ET THE TERMINATOR 
> 
° 
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036122 
036124 
036126 
036130 
036132 
©36134 
036140 
036146 
036150 
036152 
036154 
036156 
036160 
036162 


036172 
036176 
036200 
036202 
036204 
036206 
036212 
036214 
036216 
036220 
036222 
036226 
036230 
036234 
036236 
036242 
036244 
036246 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


012605 
012603 
012662 
012601 
012600 
104400 
016666 
012616 
000002 
023426 
001780 
000144 
000012 
000004 


105767 
100002 
000000 
000407 
010046 
017600 
112046 
001005 
005726 
012600 
062716 
000002 
122716 
001424 
122716 
001004 
005726 
104460 


036162 
000002 0800004 


142753 


001215 


MOV (SP)o,RS 59POP STACK INTO RS 

MOV (SP)o,R3 p9POP STACK INTO AR} 

MOV (SP)o,R2 99POP STACK INTO R2 

MOV (SP)o,Ri 99POP STACK INTO Ri 

MOV (SP)o,RO 99POP STACK INTO RO 

TYPE e SOBLK pe9NOW TYPE THE NUMBER 

MOV 2(5P),4(SP) spADJUST THE STACK 

MOV (SP)¢, (SP) 

RTI seRETURN TO USER 
SDTBL: 10000, 

1000, 

100, 

16, 


SDBLKs ,BLKW 4 
$99 8O088000S8 0500 HS COO OHHSESHOHOOHOOSCOHOOEHOOO HOSE HOODOO EOSOOO® 


eSBTTL TYPE ROUTINE 


p®ROUTINE TO TYPE ASCIZ MESSAGE, MESSAGE MUST TERMINATE WITH A @ BYTE, 
p@THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED, 


pONOTELs SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER, 
pOnNOTEZ: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED, 
pOnNOTE3s SFILLC CONTAINS THE CHARACTER TO FILL AFTER, 

Re 

p@CALLE 

91) USING A TRAP INSTRUCTION 

een TYPE o MESADR ppMESADR 18 FIRST ADDRESS OF AN ASCIZ STRING 

9@ 

5®@ TYPE 

3@ MESADR 


ge 
92) USING A JER INSTRUCTION 


so MOV PS.°C( SP) p9PUSH PROCESSOR STATUS WORD ON THE STACK 
3 JSR PC, STYPE gpCALL TYPE ROUTINE 
eo MESADDR seFIRST ADRESS OF MESSAGE 
STYPEs TSTB OTPFLG 9938 THERE A TERMINAL? 
BPL is p90R IF YES 
HALT soHALT HERE IF NO TERMINAL 
BR 36 pp LEAVE 
168 MOV RO, °( SP) ppSAVE RO 
MOV 02(8P),RO 99GET ADDRESS OF ASCIZ STRING 
288 MOVB (RO) ¢,°( SP) s9PUSH CHARACTER TO BE TYPED ONTO STACK 
BNE 6B 998R IF IT IGN°T THE TERMINATOR 
T8sT (SP)¢ o93F TERMINATOR POP IT OFF THE STACK 
MOV (8P)¢,RO ppRESTORE RO 
368 ADD 62. (SP) ppADJUST RETURN PC 
RTI 9p RETURN 
468 CMPB eHT, (SP) ppBRANCH IF <HT> 
BEQ 68 
CmMPB eCRLF, (SP) ppBRANCH IF NOT 
BNE 36 
TST (8P)¢ 99POP <CRO<LF> EQUIV 


TYPE, sCRLF 


B 


®° @ 06060000 0@40000600000ee0@e#e@e€e?ee® 


036252 
036254 
036260 
036264 
036266 


036272 
036276 
036300 
036304 


036306 
036312 
036316 
036324 
036326 
036330 
036332 
036336 
036340 
036346 
036354 
036356 
036362 
036364 
036372 
036374 
036376 
036400 
036402 


= & 6 GS = GS 6 &* 6 6 6 GS F* F* 6 = F* FF F F* F* F* F* F* G* F* Ge F* 6 6 &* &* Ge 6 C= 
wee ee ee ee ee ee ee ee Oe ee ee ee es ee ee ee ee ee ee ee ee es ee er we 


(1) 036404 
036406 
036410 
036412 


Se ee 
— ee ee ew ee ee ee es er es we 


bP RR Oe Re Re ee ee 


MAINDEC*} 1 eDERPTASA 
DERPTA,Pii 


( 
¢ 
¢ 
( 
( 
if 
( 
( 
( 
t 
if 
C 
( 
( 
( 
¢ 
( 
4 
( 
¢ 
¢ 
¢ 
C 
¢ 
( 
( 
if 
( 
( 
( 
( 
¢ 
¢ 
( 
¢ 


000757 
004767 
126726 
001352 
016746 


105366 
002770 
004767 
000772 


112716 
004767 
132767 
001372 
005726 
000730 
108777 
100375 
116677 
122766 
001003 
105067 
000406 
122766 
002002 
103227 
080000 
000207 
000207 


000200 
000011 


000000 
000000 
000000 
000011 
036423 
036424 


MACY31 27(657) 
TYPE ROUTINE 


000052 
142664 


142654 
000001 
000026 


00e04e 
000014 
600007 


142604 


000014 
000012 


142576 
000002 





ISeAPRe7S 17545 PAGE 440137 
BR 26 99GET NEXT CHARACTER 

58s JSR PC, STYPEC 99GO TYPE THIS CHARACTER 

683 CMPB OFILLC, (SP)¢ p918 IT TIME FOR FILLER CHARS,? 
BNE as s91F NO GO GET NEXT CHAR, 
MOV GNULL, ©(5P) 99GET © OF FILLER CHARS, NEEDED 

s9AND THE NULL CHAR, 

768 DECcB 1(5P) ppD0ES A NULL NEED TO BE TYPED? 
BLT 68 p9BR IF NO@eGO POP THE NULL OFF OF STACK 
JSR PC, STYPEC 9960 TYPE A NULL 
BR Ta 5) LOOP 

pHORIZONTAL TAB PROCESSOR 

abe MOVB 040, (SP) ppREPLACE TAB WITH SPACE 

968 JSR PC, STYPEC peTYPE A SPACE 
BITB 07, SCHARCNT se9BRANCH IF NOT AT 
BNE Ge psTAB STOP 
TST (SP)e 99POP SPACE OFF STACK 
BR aa seGET WEXT CHARACTER 

STYPECs TSTB osTPs poWAIT UNTIL PRINTER 18 READY 
BPL OTYPEC 


MOVB 2(8P),O08TPB 


CMPB 015.2¢SP) seBRANCH IF 
BNE is psNOT <CR> 
CLRS SCHARCNT i) 
BR OTYPEX ppExqt 
1638 CMPB €12-2¢8P) spBRANCH IF 
BGE OTYPEX 99<SLP> 
IncB (PC)¢ pp2NC SPACE 
SCHARCNT;,WORD @ psCOUNT 
OTYPEXs RTS pc 
RTS pc 
9 EQUATES 
CRLFs 200 99SCROCLF> EQUIV 
HTs ii 99“NT> 


J OFSOOEO COFCO ODOC EOHCOOOTEHECOSOOCOS HOCHST EHHEOSS OHO HCOODEROO® 
eSBTTL TTY INPUT ROUTINE 


OTKCNTs ,WORD @ 
STKGINe ,WORD @ 
STKGOUTs ,WORD @ 
OTKGSRT: ,BLKB 9 
STKGENDs, 

EVEN 


SONUMBER OF ITEMS IN QUEUE 
seINPUT POINTER 
seOUTPUT POINTER 

o peTTY KEYBOARD QUEUE 


s@TK INITIALIZE ROUTINE 
pOTHIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
peSETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


] 

peCALLs 

ye JSR PC, STKINT 
s® RETURN 


#9LOAD CHAR TO BE TYPED INTO DATA REG, 


zxya almlCtllCOHlCRHlC KHlTlUlCLDllCHWlCHKelC KC HeltC KH lil Hsia“ HN—iseia“ He—am leti—itia K“ lHCitiGéesHeltC KlNti NN 
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036424 
036430 
036436 
036444 
036452 
036460 
036464 
036472 


036474 
036500 
036504 
036510 
036512 
036516 
636522 
036526 
036534 
036536 
036542 
036544 
036546 
036552 
036556 
036562 
036570 
036572 
036600 


036602 
036604 
036612 
036616 
036622 
036626 
036630 
036634 
036642 
036646 


FFA FAA ALLE EEL ELEEQEBEBQUQQ_E&LEEXEEE EEL ELLE FL ELL ELF FLL FL FAFA FLA FAFA FAFA FAFA FPF 
~~ oe ee Oe 8 Oe Oe es Oe er es es ee ee ee ee ee ee ee a er ee a a ee ee ee ee ee ee a ee ee ee a ee a es ee 


= © & G= & F* 6 & &* &* & 6 &* G* &* F 6 A) F* F F* F* F* S* Fe 6 G* & 5 FS OS F Fe F* G* F* OS * * F* GF FS O* GS GO &* FF F* F* G* Ge GF O* GO 


Fas 
w 





MAINDEC 31 eDERPTACA 


005067 
012767 
016767 
012737 
012737 
008777 
612777 
000207 


117746 
042716 
021627 
001006 
104400 
004767 
000167 
022767 
001004 
1044008 
005726 
000415 
005267 
4112677 
008267 
026727 
001003 
012767 
000002 


011646 
016666 
005066 
005637 
605767 
001775 
005367 
117766 
005267 
026727 


MACYi1 27(657) 
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177754 
036412 
1777446 
036474 
000200 
142454 
000100 


142440 
177600 
000603 


637005 
177702 
164663 
000011 


001210 


177632 
177630 
177624 
177620 


000004 
ee0004 
177776 
177556 


177580 
177550 
177842 
177836 


177788 
177744 
000060 
000062 


142444 


177680 


036423 
177606 
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f 
OTKINTs CLR STKCNT p9CLEAR COUNT OF ITEMS IN QUEVE 
MOV OSTRQSRT,STKGIN p,MOVE THE STARTING ADDRESS OF THE 
MOV GTKQIN,STKQOUT s,QUEVE ZNTO THE INPUT & OUTPUT POINTERS, 
MOV OSTKERV, OCTKVEC ppINITIALIZE THE KEYBOARD VECTOR 
MOV 0200,00TKVECe2 4)°BR® LEVEL 4 
TST OsTKB pe9CLEAR DOWE FLAG 
MOV 6100, 08TKS ssENABLE TTY KEYBOARD INTERRUPT 
ATS ec peRETURN TO CALLER 


p@TK SERVICE ROUTINE 

p@THIG ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

p@BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

p@IT IN THE QUEUE, 

p@IF THE CHARACTER I8 A "CONTROL©C® (°C) STKIVT 36 CALLED AND 

p@UPON RETURN EXIT 16 MAKE TO THE "CONTROLeC® RESTART ADDRESS (OPERSEL) 


’ 

STKSRVs MOVE OsSTKB,°( SP) sePICKUP THE CHARACTER 
BIC 0°C177, (SP) seSTRIP THE JUNK 
CMP (8P),93 9928 IT A CONTROL CP 
BNE is seBRANCH IF HO 
TYPE o OCNTLC peTYPE A CONTROL]C (°C) 
JSR PC, STKINT peINIT THE KEYBOARD 
JUMP OPERSEL ssCONTROL C RESTART 

18s CMP 09,.6TKCNT 9938 THE QUEVE FULL? 
BNE 26 peBRANCH IF NO 
TYPE o @BELL peRING THE TTY BELL 
T8T (8P)¢ ppCLEAN CHARACTER OFF OF STACK 
BR 36 ppExIt 

aot rnc OTKCNT ppCOUNT THIS CHARACTER 
MOvB (SP)¢,O6TKGIN 9,AND PUT IT IN QUEUE 
Inc 6TKGIN SeUPDATE THE POINTER 


Cup OTKQIN, OSTKGEND 99GO0 OFF THE END? 
38 ppBRANCH IF HO 
MOV OOTKGSRT,STKGIN ppRESET THE POINTER 
388 RTI 9 RETURN 
$ 0099000000 0000 920 FOSOEHOODOOEOOCD OOOO OHHOOCHEHODOHHSOHSEEOEEOEO8 
p@THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


pOCALLe 
hd ROCHR 99GET A CHARACTER FROM THE QUEUE 
s@ RETURN HERE spCHARACTER 18 ON THE STACK 
hed soWITH PARITY BIT STRIPPED OFF 
' 
SRDCHR: MOV (3P),°( SP) s9PUSH DOWN THE PC AND 
MOV 4(5P),2(8P) peTHE PS 
CLR 4(8P) 99GET READY FOR A CHARACTER 
CLR Oops ppALLOW INTERRUPTS 
18s ee STKCNT poWAIT OW A CHARACTER 
BEQ is 
DEC STKCNT ppDECREMENT THE COUNTER 
MOVB @sTKQOUT,4(5P) 9)GET ONE CHARACTER 
Inc STKQOUT PPUPDATE THE POINTER 


CMP STKQOUT, OSTKQEND 99D2D If GO OFF OF THE END? 





2 oO 
MAINDEC*4 LeDERPTASA MACY14 27(657) {SeAPR©7S 17148 PAGE 440139 
° DERPTA,Pi1 TTY INPUT ROUTINE © 
(1) ©36684 001003 BNE 28 SBRANCH IF NO 
(1) ©36656 012767 @36412 477524 MOV SSTKOSRT,STKQOUT p)RESET THE POINTER g 
> (1) 036664 699002 281 RTL pp RETURN 
( 2 ) PSSSSSSHSHSHSHSSSSFHSHSHSHOHASHHHSHHHHHSSHHOSSSHHHESHEHHHHOHHSOOCS 
qa) s@THIS ROUTINE WILL INPUT A STRING FROM THE TTY @ 
3 a) p@CALLE 
(1) 1° RDLIN ppINPUT A STRING FROM THE TTY 
e (1) 1° RETURN HERE ppADORESS OF FIRST CHARACTER WILL BE ON THE STACK a 
(1) rT PpTERMINATOR WILL BE A BYTE OF ALL 9°S 
rT 
(1) 036666 010346 SRDLING MOV R3,°( SP) pp SAVE RD ® 
o (1) 036670 012703 036776 18s MOV SOTTYIN, RS $9GET ADDRESS 
(1) 036674 022703 037008 281 cup OSTTYINGD,.R3 py pBUFFER FULL? 
e (1) @36700 103405 BLOS as 990Rn IF YES fe) 
(1) 036702 104442 ROCHR 99GO READ ONE CHARACTER FROM THE ITY 
(1) @36704 112643 MOVB (SP) 4, (R3) $9GET CHARACTER 
° (1) @36706 122713 900177 108s «6 CMPB-s04.77,, (RD) $938 IT A RUBOUT © 
(1) 036712 001003 BNE 38 998KIP IF NOT 
(1) 036714 104400 003216 Ty TYPE ,sQUEs peTYPE A °° 
e (1) 036720 900763 BR is F9CLEAR THE BUFFER AND LOOp o 
(1) 036722 111367 eeeees 368 MOVE =s_- (RB) 98 1pECHO THE CHARACTER 
(1) 036726 104400 036772 TYPE} 0—_ , 98 
° (1) 036732 122723 #00038 CMPB «048 (R3)o peCHECK FOR RETURN 2 
(1) 036736 001356 BNE 28 $pL00P IF NOT RETURN 
(1) 036740 108063 377777 CLRB @ 4. (RQ) PPCLEAR RETURN (THE 45) 
° (1) 036744 304600 901216 TYPE, OLF s9TYPE A LINE FEED e 
(3) 036780 012603 MOV (8P)o,R3 ppRESTORE RB 
(1) 036752 011646 NOV (8P),°(8P) ppADJUST THE STACK AND PUT ADDRESS OF THE 
° (1) ©36754 016666 e00004 900002 NOV 4CaP),2CaP) 1 FInst ASCII CHARACTER OW IT ray 
(1) 036762 012766 036774 @e00e4 MOV eOTTYIN, 4(8P) 
(1) 036770 @90002 RTI p RETURN 
° (1) @36772 TT) 981 »BYTE 9 ppSTORAGE FOR ASCII CHAR, TO TYPE 6 
(1) 036773 000 BYTE @ 1p TERMINATOR 
(1) 036774 eeeeii STTYING ,BLKB 9 ppRESERVE 9, BYTES FOR TTY INPUT 
(1) 037005 = 436 006503 900012 SCNTLCs ,ASCIZ /*Cveys><i2> — ;CONTROL PC# fa 
3 10660 PPROM THE TTY 
+ttt 
1086 
S 10063 e 
1 266 : | SHOVFRSS SOS LCOPSEGEPHSSHOESESE OHO PFSOISHSPOSS OSHS HSSGHSVVPIGGSHGOSSSHEHED OOD 
a 
2 (1) »SBTTL READ AN OCTAL NUMBER FROM THE TTY e 
1 
® (i) S@THIG ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AnD re) 
(1) s@CHANGE If TO BINARY, 
(a) peTHE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
° 1) s@OCTAL DIGITS, IF AN ILLEGAL CHARACTER 18 READ A *?* WILL BE TYPED G 
(1) p@FOLLOWED BY A CARRIAGE RETURNeLINE FEED, THE COMPLETE NUMBER MUST 
a) p®THEN BE RETYPED, THE INPUT Ig TERMINATED BY TYPING A CARRIAGE RETURN, 
° (i) peCALLe a) 
ai) ie ROOCT ppREAD AN OCTAL NUMBER 
(i) 30 RETURN HERE pp9LOW ORDER BITS ARE ON TOP OF THE STACK 
> es ha ppHIGH ORDER BITS ARE IN SHIOCT S 
9 a) 
)3 
» Lite 





DERPTA,Pii 


(1) 637012 
(1) 037014 
(3) 037022 
(3) 037024 
(3) 037026 
037030 
037032 
037034 
037040 
037042 
037044 
037046 
637050 
037054 
037056 
037062 
037064 
037066 
837070 
037072 
037074 
037076 
037100 
037104 
037106 
037110 
037112 
037116 
037122 
037124 
037126 
037130 
037132 
037134 
037136 
037140 
037142 
037146 
037150 


FF FR FR FR FR FR FR FR FR FR FR FF FFE FFE FFE FL FLL LFA PAPA PA Oi Or 
> © f= & b> be = 6 Wy & Ue © © FF Se & Se Oe Be Fe Oe FS BS Be Ge OS Oe Oe Oe Be Oe 8 Oe Oe 
wee eee eee eee eee eee eee eee 





MAINDEC ©} 1 eDERPTASA 


READ AN 


011646 
016666 
010046 
010146 
010246 
104414 
012600 
010067 
005001 
005002 
112046 
001420 
122716 
003026 
122716 
002423 
006301 
0061062 
006301 
006102 
006301 
006162 
042716 
062601 
000756 
005726 
010166 
010267 
012602 
012601 
0126006 
000002 
005726 
105036 
104400 
000000 
104400 
000730 
000000 
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OCTAL NUMBER FROM THE TTY 


000060 
000067 


177770 


001214 


SRDOCTs MOV 
MOV 


16s RDLIN 


26% MOVB 


38s T6T 


463 Tst 


8 
SHIOCTs ,WORD 


17845 PAGE 44°449 


C(SP),°( SP) 
4(8P),2(8P) 
RO. °( SP) 
Rir°(SP) 
R2.°( SP) 


(8P)¢,RO 
RO,S6 
Ri 


R2 

(RO) ¢,°( SP) 
36 

0°O, (SP) 

46 

6°7, (SP) 


6°C7, (SP) 
CSP)o, Ri 
28 

(SP)¢ 
Rici2csP) 
R2,6HIOCT 
(8P)e,R2 
CSP)¢,R1 
(8P)¢,RO 


S9PROVIDE SPACE FOR THE 

pe INPUT NUMBER 

pePUSH RO ON STACK 

sePUSH Ri ON STACK 

s9PUSH R2 ON STACK 

peREAD AN ASCIZ LINE 

99GET ADORESS OF 18T CHARACTER 
ppAND SAVE UT 

peCLEAR DATA WORD 


se9PICKUP THIS CHARACTER 
seIF ZERO GET OUT 

ppMAKE SURE THIS CHARACTER 
9928 AN OCTAL DIGIT 


JeSTRIP THE ASCII JUNK 

spADD IN THIS DIGIT 

5» LOOP 

spCLEAN TERMINATOR FROM STACK 
pe9SAVE THE RESULT 


p9POP STACK INTO RQ 

p9POP STACK INTO Ry 

p9POP STACK INTO RO 

se RETURN 

seCLEAN PARTIAL FROM STACK 
99SET A TERMINATOR 

seTYPE UP THRU THE BAD CHAR, 


pp*?? "CR® & *LF® 
peTRY AGAIN 
ppHIGH ORDER BITS GO HERE 


x 
> 








DERPTA.Pii 


Ce ee 
- oe & o 6 = oe 6 & Ge 8 & FB oe 
ee ee ee ee ee ee ee es ee 8 


237152 


(3) 037152 
(3) 037160 


(1) 637160 
037164 
037166 
037174 
037202 
037204 
037210 
037214 
037220 
037226 
037234 
037242 
037244 
037250 
037254 
037260 
037262 
037264 
037272 
037274 
(1) 037300 
(1) 037304 
(1) 637306 
(1) 037312 
(1) 037312 


De ee ee ee ee a a oe a Oe a ee) 
= = 6 &* F= b= F* &* b= 5 = Fe * F F F* 6 Oe 
— we ee ee ee Oe ee ee ee ee ea ae ae es 





| 
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012737 


103267 
001775 
016737 
032737 
001402 
1044008 
005267 
011667 
162767 
117767 
032737 
001004 
004737 
164400 
005737 
100001 
000000 
032737 
001402 
016716 
005767 
001402 
016716 


MACY11 27(657) 
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177777 


141717 


141718 
002008 


001210 
141676 
141676 
000002 
141664 
020000 


037314 
001215 
177570 
001000 


141610 
141702 


141674 


001774 


1775798 
177570 


141670 
141660 
177570 


177870 
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FECLOSSOOOEH EHO TEESESOEHODHESE ESO OSHS ESOEOSOHETSS OSES ESE OOFOED 
eSBTTL EPROR HANDLER ROUTINE 


p@THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
p@SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
p®AND GO TO SERRTYP ON ERROR 

p@THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE AREs 


p@SW1{Se4 HALT ON ERROR 
9801381 INHIBIT ERROR TYPEOUTS 
p@SWi1 084 BELL ON ERROR 
p@SWo9s) LOOP ON ERROR 
9 ®CALL 
7 ERROR N ppERRORSEMT AND N#@ERROR ITEM NUMBER 
SERROR? 
MCV @o1,@sERFLGS pSET ERROR FLAG 
REGSAIs 
783 IncB SERFLG 39SET THE ERROR FLAG 
BEQ 78 #9DON°T LET THE FLAG GO TO ZERO 
MOV GTSTNM,@ODISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG 
BIT @BIT10.0¢0SWR S9BELL OW ERROR? 
BEQ is 39N0 © SKIP 
TYPE e SBELL s9RING BELL 
4183 Inc SERTTL s;COUNT THE NUMBER OF ERRORS 
MOV (SP), SERRPC 99GET ADDRESS OF ERROR INSTRUCTION 
8uB @2,8ERRPC 
MOVB OsERRPC,SITEMB 4 ;STRIP AND SAVE THE ERROR ITEM CODE 
BIT OBIT, 3,0e5WR ppSKIP TYPEOUT IF SET 
BNE 28 s9SKIP TYPEOUTS 
JSR PC, @oSERRTYP 3960 TO USER ERROR ROUTINE 
TYPE oSCRLF 
283 TST OeSwR 99HALT ON ERROR 
BPL 38 p98KIP IF CONTINUE 
HALT p9HALT ON ERROR 
383 BIT @BITO9, OOSWR ppLOOP ON ERROR SWITCH SET? 
BEQ 4s s98R IF NO 
MOV OLPERR, (SP) p9FUDGE RETURN FOR LOOPING 
481 T8sT SESCAPE s9CHECK FOR AN ESCAPE ADDRESS 
BEQ $8 99BR IF NONE 
MOV SESCAPE, (SP) p9FUDGE RETURN ADDRESS FUR ESCAPE 
563 
RTI ps RETURN 


J POCCCOSHOETOEOHOEHEEOOEEHO OOOH OO HOSOODEDODOTOHOTHOHORHROCODEEES 
eSBTTL ERROR MESSAGE TYPEQUT ROUTINE 
p@THIS ROUTINE USES THE "ITEM CONTROL BYTE® (SITEMB) TO DETERMINE WHICH 


p®ERROR 16 TO BE REPORTED, IT THEN OBTAINS, FROM THE "ERROR TABLE® (SERRTS), 
p@AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR, 


FR FR FRR FR FR FR FEF FFF FFA EEE EAEBUEEBEELELEL EL ELXLAXLFX iL i® Fi Pri Fr FX 


eo © 6 6 6 o oe 6 © &) A) A) © &) A) © &= & b 6 Se Fe Oe & 5 F* © &* FO &* O Oe FF Oo Oe 9 
www ee eee ee eee eee eee eee eee 
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ERROR MESSAGE TYPEOUT ROUTINE 
637314 SERRTYP:s 
037314 104400 0601215 TYPE  OCRLF 
037320 010046 MOV RO,°( SP) 
037322 005000 CLR Re 
037324 153700 001114 BIsB OoSITEMB, RO 
037330 001004 BNE is 
037332 016746 141560 MOV SERRPC,©( SP) 
037336 104402 TYPOC 
037340 000445 BR 108 
037342 005360 iss DEC RO 
037344 006300 ASL RO 
037346 006300 ASL Ro 
037350 006300 ASL Re 
037352 0662700 061220 ADD @SERRTB, RO 
037356 612067 #800004 MOV (RO)¢,28 
037362 001404 BEQ 36 
037364 104408 TYPE 
@37366 809000 26% e4ORD 6 
037370 104408 0801215 TYPE e OCRLF 
037374 012067 800004 361 MOV (RO)o, 48 
037400 001404 BEQ 36 
037402 104408 TYPE 
637404 0900000 46% eWORD @ 
037406 104400 001215 TYPE o OCRLF 
037412 610146 56% MoV Ri, o( SP) 
037414 0612001 MOV (ROO, Ri 
037416 001415 BEQ 98 
037420 0612000 MOV (RO), RO 
037422 105720 68s TSTB (RO)o 
037424 601003 BNE 78 
037426 013146 MOV OCR1)¢,°( SP) 
037438 104402 TYPOCc 
037432 000402 BR Ge 
037434 768 
037434 613146 MoV OCRI)e, °C or, 
037436 104410 TYPOS 
037440 005731 Gas T8T (Ri) 
037442 601403 8£Q 96 
037444 104408 037464 TYPE 0118 
037450 900764 BR 68 
037452 0612601 a5 Mov (SP)o,Ri 
037454 012600 106% MOV (SP)o,RO 
037456 104490 0601215 TYPE oe SCRLF 
037462 600207 RTS pc 
637464 920040 600 1188 eASCIZ / 7/ 

0374790 oCVEN 


MAINDECe1 1 eDERPTACA 
DERPTA,Pii 


PSSSOSSSSOOHSHSHHHOSSSSSSHSSOHHHHSHSHHHHHGHSHHHOHOHHHHSHHHSSSOHOOOOHOO 





DO"CARRIAGE RETURN® & "LINE FEED® 
9p9SAVE RO 
pe9PICKUP THE ITEM INDEX 


poIF ITEM NUMBER 18 ZERO, JUST 
s9TYPE THE PC OF THE ERROR 

p96AVE GERRPC FOR TYPEOUT 

peERROR ADDRESS 

9960 TYPEeeOCTAL ASCIICALL DIGITS) 
99GET OUT 

peADJUST THE INDEX SO THAT IT WILL 
” WORK FOR THE ERROR TABLE 


99FORM TABLE POINTER 

s9PICKUP "ERROR MESSAGE” POINTER 
s96KIP TYPEOUT IF NO POINTER 
s9TYPE THE "ERROR MESSAGE" 
s9*ERROR MESSAGE® POINTER GOES HERE 
P9°CARRIAGE RETURN® & "LINE FEED* 
sePICKUP "DATA HEADER® POINTER 
sp6KIP TYPEOUT IF 6 

peTYPE THE "DATA HEADER* 

S9"°DATA HEADER® POINTER GOES HERE 
PO"°CARRIAGE RETURN® & "LINE FEED® 
ppGAVE Rj 

ppPICKUP "DATA TABLE® POINTER 

998R IF NO DATA TO BE TYPED 
sePICKUP "DATA FORMAT" POINTER 
sp"OCTAL® OR *DECIMAL® 

990R IF DECIMAL 

p9SAVE OCRG)e FOR TYPEOUT 

9960 TYPE*°OCTAL ASCII(ALL DIGITS) 


ppSAVE OCRI)e FOR TYPEOUT 

99GO TYPEeeDECIMAL ASCII WITH SIGN 
9928 THERE ANOTHER NUMBER? 

998R IF WO 

peTYPE TWO(2) SPACES 

99L00P 


peRESTORE Ri 

ppRESTORE RO 

pe°CARRIAGE RETURN® & "LINE FEED® 
9p RETURN 

pe9TWOC2) SPACES 


PSSHSSHSHHSESHSSOHSSSHSHSHHOHOSHOHSHHHHSPOHOHHHHOHHHHHHSSOGEHOO® 


eSBTTL BINARY TO OCTAL (ASCII) AND TYPE 





*- a 8 @ 8@8 08 0@ @ 8 82 0000000 e0e 0 0 80 08 


oo ogTT, TT {jTJTj"= st" t* tt  r;,iT7,; v7 T7887 35 8 8 @ 





MAINDEC*11eDERPTASA 


DERPTA,Pi1 


037470 
037474 
037502 
037506 
037512 
637514 
037522 
037530 
037536 
037540 
037542 
037544 
037550 
037552 
037556 
037562 
037566 
037572 
037574 
037576 
037600 
037602 
037604 
037606 
037610 
037612 
037616 
037620 
037624 
037626 
037630 
037632 


FF FFF FFF FFF FF AEE EEE EB EEE EEE EEE ELEALEL ELE EEL ELL ELL ELLA 
o* G2 F= F* = b= F F G2 5 F* SF F* F* SF FF Fe FS 6° FS &* F= F* FS F* FF F* FS GF FF G* FS GF F 62 Fe F* F* &* CF F* Fe GS GF Oe Ge 
www eer err ere eee eee ere eee eee eee 


017646 
116667 
112667 
062716 
000406 
112767 
4112767 
112767 
010346 
010446 
010546 
116704 
005404 
062704 
110467 
116704 
016605 
005003 
006165 
000404 
006108 
006105 
006105 
010563 
006103 
105367 
100016 
042703 
001002 
005704 
001403 
005204 


MACY11 27(687) 
BINARY TO OCTAL (ASCII) AND TYPE 


oeeeee 
000001 
000207 
686002 


000145 
beeaa6 
000132 


000076 
177770 


600171 
o00i165 
000354 


ISeAPRe7S 17545 PAGE 44°143 


p@THIS ROUTINE I6 USED TO CHANGE A 16eBIT BINARY NUMBER TO A 6eDIGIT 
peOCTAL (ASCII) NUMBER AND TYPE IT, 


pSSTYPOSeecENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


p@CALLe 

hd MOV NUM, e( SP) ssNUMBER TO BE TYPED 

hed TYPOS ppCALL FOR TYPEOUT 

19 eBYTE WN p9Ney TO 6 FOR NUMBER OF DIGITS TO TYPE 
s@ eBYTE M ppMey OR @ 

3° p91@TYPE LEADING ZEROS 

ye p9OSSUPPRESS LEADING ZEROS 

9® 


P@CTYPONCeeoENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
p@STYPOS OR STYPOC 


peCALLs 

3° MOV NUM, @( SP) spNUMBER TO BE TYPED 
ed TYPON peCALL FOR TYPEOUT 
he 
arb patpanege HERE FOR TYPEQUT OF A 16 BIT NUMBER 
peCALLs 

s@ MOV NUM, °( SP) poNUMBER TO BE TYPED 
ed Typoc spCALL FOR TYPEOUT 
STYPOSs MOV 0¢SP),°(SP) pePICKUP THE MODE 


MOVE 1¢6P),6eFILL p9LOAD ZERO FILL SWITCH 
MOVB (SP)¢,SOMODES] »,NUMBER OF DIGITS TO TYPE 


ADD 020 (SP) ppADJUST RETURN ADORESS 
BR STYPON 
STYPOCs MOVB Oi1e8OFILL 99SET THE ZERO FILL SWITCH 
MOVvB 06, 80MODES 4 ppSET FOR BIXC6) DIGITS 
OTYPONs MOVB 05,80CNT 998ET THE ITERATION COUNT 
MoV R3e°( SP) s9SAVE RD 
MOV R4,°( SP) ppSAVE RO 
MOV RS, °( SP) pe SAVE RS 
not en 99GET THE NUMBER OF DIGITS TO TYPE 
4 
ADD 06,R4 ppSUBTRACT IT FOR MAX, ALLOWED 
MOVB Ré,8OMODE gpSAVE If FOR USE 
MOVB GOFILL, RE 99GET THE ZERO FILL SWITCH 
MOV 12¢gP),RS SePICKYP THE INPUT NUMBER 
CLR R3 ppsCLEAR THE OUTPUT WORD 
168 ROL AS spROTATE MBB INTO *C® 
BR 368 9960 DO MBB 
283 ROL RS s9FORM THIS DIGIT 
ROL Rg 
ROL RS 
MOV RS,RS 
3638 ROL R3 99GET LEB OF THIS DIGIT 
DECB SOMODE seTYPE THIS OIGIT? 
BPL 78 998R IF nO 
BIC 0177770,R3 99GET RID OF JUNK 
BNE 46 seTESTt FOR @ 
TST RG s9SUPPRESS THIS OF 
BEQ 58 99BR IF YES 
463 Inc R4 99D0N°T SUPPRESS ANYMORE 0°S 





’ 


MAINDECe11eDERPTASA 
DERPTA,Pii BINARY 


052703 
052703 
110367 
104400 
105367 
003347 
002402 
005204 
000744 
012608 
012604 
012603 
016666 
037704 012616 
037706 900002 
037710 0008 
037711 0008 
037712 000 
0377133 0008 
037714 900000 


037634 
037640 
037644 
037650 
037654 
037660 
037662 
037664 
037666 
037670 
037672 
037674 
037676 


FF FFFFFAAAAAAAAAARrAES 


= © 2 & G* G G* 6 F* GF G* GS F= GF F* f= Ge GF b= C= 
~~ oe ee ee ee ee es Oe ee ee ee 
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ISeAPRe75 


TO OCTAL (ASCII) AND TYPE 


000060 
000040 
000040 
037710 
000032 


BIs 
56s BIs 
MOVB 
TYPE 
76% DECcB 
BGT 
BLT 
Inc 
BR 
683 MOV 
MOV 
nov 
MOV 
MOV 
ATI 
TT BYTE 
BYTE 
SOCNTs BYTE 
SOFILL: ,BYTE 
SOMODEs ,WORD 


17845 PAGE 440144 


(SP)¢,R5S 
(SP)o,R4 
(SP)o,R3 
2(SP),4(SP) 
(8P)¢, (SP) 


pO9MAKE THIS DIGIT ASCII 
p9MAKE ASCII IF NOT ALREADY 
s9SAVE FOR TYPING 

9960 TYPE THIS DIGIT 

pyCOUNT BY 4 

99BR IF MORE TO DO 

998R IF DONE 

S9INBURE LAST DIGIT ISN°T A BLANK 
9960 DO THE LAST OIGIT 
spRESTORE RS 

SPRESTORE RE 

ppRESTORE R3 

998ET THE STACK FOR RETURNING 


p sRETURN 

pe9STORAGE FOR ASCII DIGIT 
ppTERMINATOR FOR TYPE ROUTINE 
pp9OCTAL DIGIT COUNTER 

p9ZERO FILL SWITCH 

ppNUMBER OF DIGITS TO TYPE 


MAINDECe1 1 eDERPTASA MACY11 27(657) iSeAPRe7S 17845 PAGE 440145 
DERPTA,Pi1 BINARY TO OCTAL (ASCII) AND TYPE 
10671 JOSSOSHSSSSOSHOSSSHSESHSHHSHSHHHHHHOHOHSHOHHHHHHHHSSHSEHERHOCOOS 
(1) 
(1) eSBTTL TRAP DECODER 
(1) 
(1) p@THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP*® INSTRUCTION 
(1) p@AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
(4) p@OF THE DESIRED ROUTINE, THEN USING THE ADDRESS OBTAINED IT WILL 
+ 9@GO TO THAT ROUTINE, 
(1 
(1) 037716 010046 STRAPS MOV RO, (SP) pp SAVE RO 
(1) 037720 016660 000062 NOV 2(8P),RO 99GET TRAP ADDRESS 
(1) 037724 008740 T8T (RO) ppBACKUP BY 2 
(1) 037726 111000 MOVB CRO), RO 99GET RIGHT BYTE OF TRAP 
(1) 037730 616000 037736 MOV STRPADCRG),RO fy INDEX TO TABLE 
$4 037734 600206 RTS Ro 9960 TO ROUTINE 
(1 
(3) 
3 eSSTTL TRAP TABLE 
(3) pOTHIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
HH p@BY THE "TRAP*® INSTRUCTION, 
(3) ’ ROUTINE 
(3) 4 S2ee2ecea 
(3) 037736 STRPADS 
(3) 037736 636172 STYPE js sCALLeTYPE TRAPOO(104400) TIY TYPEOUT ROUTINE 
(3) @©37748 0637514 OTYPOC 4» sCALLeTYPOC TRAPO2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
(3) 037742 037470 STYPOS #sCALLeTyPOS TRAPC4(104404) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
(3) 037744 037530 STYPON »)CALLeTYPON TRAPS6(104406) TYPE OCTAL NUMBER (AS PER LAST CALL) 
(3) 037746 035746 OTYPOS 4 ,CALLeTYPDS TRAPO{0( 104430) TYPE DECIMAL NUMBER (WITH SIGH) 
(3) ©3775@ 036602 SROCHR s/CALL®ROCHR TRAPO12(104412) try TYPEIN CHARACTER ROUTINE 
(3) 037752 036666 SRDOLIN »sCALLSRDLIN TRAPO14(106414) TITY TYPEIN STRING ROUTINE 
(3) ©3775¢ 037032 GRDOCT »,CALL@RDOCT TRAPO16(304436) READ AN OCTAL NUMBER FROM TTY 
10672 037756 024452 TeSCOP ssCALL®gCOP1 TRAPO20(104420) My LOCAL sCOPEg 
10873 637760 024524 CHECKT js ;CALLOCHECKD TRAP©22(104422) CHECK DVA,RDY,DPR,DRY 
10874 937762 028026 WAIT,T sp sCALLeWAT TRAPO24(104424) WALT LOOP 
10675 
10676 
10877 


MAINDEC@11¢DERPTASA MACY11 27(657) iSeAPR°7S5 17345 PAGE 440446 
DERPTA,Pii TRAP TABLE 
10879 J OOCSOSOOOSOT OHSS SET SOOOHO OOOO OOO HOO LOH HSOSEHOSHOOHOCOOOOTEOOCES 

(1) 
see eSBTTL POWER DOWN AND UP ROUTINES 
(1 
(4) pPOWER DOWN ROUTINE 
(1) ©37764 012737 640112 600024 SPWRONs MOV OCILLUP,GOPWRVEC 93)5ET FOR FAST UP 
(1) 037772 612737 600348 600026 MOV 0340, O00PWRVECe2 5) PRIO87 
(3) 0640000 610046 MOV RO, °( SP) s9PUSH RO OW STACK 
(3) 640002 010146 MOV Rise(SP) ssPUSH Ri OW STACK 
(3) 040004 010246 MOV R20°(8P) p9PUSH R2 OW STACK 
(3) 040006 010346 MOV R3,°( SP) p9PUGH R3 OWN STACK 
(3) 040010 610446 MOV R4e°( SP) spPUSH R4 ON STACK 
(3) 040012 0610546 MOV RS, °(SP) 99PUSH RS OW STACK 
(1) 040014 610667 0600076 MoV SP, SSAVRE spSAVE GP 
(1) 0640020 012737 640032 900024 MOV OOPWRUP,GOPWRVEC »)SET UP VECTOR 
(1) 040026 600000 HALT 
(1) 040030 800776 BR 022 sesHANG UP 
(1) 
(1) sPOWER UP ROUTINE 
(1) 040032 616706 900060 SPWRUPs MOV SSAVR6, SP 99GET 6P 
(1) 040036 005067 9800054 CLR GSAVRE peWAIT LOOP FOR THE TTY 
(1) 040042 005267 seee0Se iss Inc OSAVRE peWAZT FOR THE INC 
(1) 040046 0603375 BNE is 990F WORD 
(3) 0409050 612665 MOV (SP)o,RS p9POP STACK INTO RS 
(3) 040052 612604 MOV (SP)o,R4 pePOP STACK INTO RE 
(3) 040054 012603 MOV (SP)o,R3 99P0P STACK INTO RB 
(3) 040056 612602 MOV (8P)¢,R2 99POP STACK INTO RZ 
(3) 040060 612601 MOV (SP) o,Ri p9POP STACK INTO Rj 
(3) 640062 012600 MOV (8P)o,RO p9POP STACK INTO Roe 
(1) @40064 012737 037764 989024 MOV OSPWRON,OOPWRVEC »;SET UP THE POWER DOWN VECTOR 
(1) 040072 012737 0800340 990026 MOV 0340, COPWRVECe2 pp PRIOCT 
(1) 040100 104400 TYPE pREPORT THE POWER FAILURE 
(1) 040102 640120 SPWRMGs ,WORD SPOWER p9POWER FAIL MESSAGE POINTER 
(1) 040104 612716 MOV (PC) o, (SP) peRESTART AT BEGIN 
(1) 040106 604220 SPWRADs ,WORD BEGIN peRESTART ADORESS 
(1) 040118 0600002 RTI 
(1) 640112 #8000808 SILLUPs HALT p9THE POWER UP SEQUENCE WAS STARTED 
(1) 640114 0600776 BR eee 99 BEFORE THE POWER DOWN WAS COMPLETE 
(1) 040116 @00000 SSAVRGt 6 s9PUT THE SP HERE 
(1) 040120 005015 647520 642527 GPOWERs ,ASCIZ <15><12>*POWER® 
(1) 040126 000122 
(1) EVEN 


{ 


MAINDEC*{1DERPTACA 
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10681 
10662 
10663 
10664 
10665 
10886 
10667 
10068 
10669 
10690 


10691 


10892 


10893 


10695 


10896 


10897 


040130 
040136 
040144 
040152 
040160 
040166 
040174 
040202 
040210 
040213 
040220 
040226 
040234 
040242 
040250 
040256 
040264 
040272 
040300 
040301 
040306 
040314 
040322 
040330 
040334 
040342 
040350 
040354 
040362 
040370 
040376 
040404 
040412 
040420 
040425 
040432 
040440 
040446 
040454 
040462 
040470 
040472 
040500 
040506 
040513 


MACY11 


POWER DOWN AND 


051127 
040504 
020116 
047111 
083440 
043516 
053504 
042522 
051105 

108 
047440 
052101 
046515 
051105 
047117 
042524 
042504 
020104 

000 

103 
046117 
051117 
042526 
052524 
042522 
051105 
042514 
050123 
042511 
044507 
047040 
044530 
020124 
047502 

127 
047514 
044501 
051127 
044103 
040506 
000107 
042522 
051105 
044514 

141 


047117 
040524 
042522 
020107 
044522 
e44ade 
051103 
044507 

888 
051122 
020116 
0201061 
047161 
047822 
053440 
044040 
020122 
040504 


047317 
042514 
04204€ 
051440 
000123 
044507 
043040 
060104 
041505 
020104 
052123 
047117 
052123 
047523 
052123 
044501 
050117 
042514 
052111 
041505 
046111 


044507 
043040 
043516 
052116 


27(687) 


ISeAPRe7§ 


UP ROUTINES 


020107 
044446 
042161 
051117 
044524 
051101 
020105 
052123 


053117 
042040 
047503 
000104 
020122 
044522 
040505 
047101 
040524 


061124 
020122 
044522 
040524 


052123 
044501 


020113 
047311 


052123 
044501 

000 
051105 
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8 
pERROR AND MESSAGE TABLE CONDIMENTS 


EMi78 


eASCIZ 


eASCIZ 


eASCIZ 


eASCIEZ 


eASCIZ 


“WRONG DATA IN READING OR WRITING HARDWARE REGISTER? 


JERROR ON DATA COMMAND/ 


ERROR ON WRITE HEADER AND DATA/ 


/CONTROLLER OR DRIVE STATUS/ 


/REGISTER FAILED/ 


/SPECIFIED REGISTER NON EXISTANT SO ABORT/ 


/WAIT LOOP FAILED/ 


/WRITE CHECK FAILING/ 


/REGISTER FAILING/ 


INTERRUPT FAILING/ 


e ( 
Pmt ohn teeth Re i it a A TN EEA th 


MAINDEC 1 1eDERPTASA 
DERPTA,Pi1 


109@2 


10905 


10906 


10907 


040520 
040526 
040534 
040535 
040542 
040550 
040556 
040564 
040565 
040572 
040600 
040606 
040614 
040622 
040630 
040631 
040636 
040644 
040652 
040660 
040666 
040674 
040702 
040704 
040712 
040720 
040726 
040727 
040734 
040742 
040750 
040756 
040763 
040770 
040776 
041004 
041012 
041020 
041026 
041034 
041042 
041050 
041056 
041061 
041066 
041074 
041102 
041110 
041116 
041124 
041130 
041136 
041144 
041152 


052522 
044501 

000 

105 
047440 
053111 
051505 

012 

124 
044516 
020086 
020104 
052105 
051040 

012 

164 
020124 
020105 
052040 
044516 
020056 


MACY11 27(657) 
POWER DOWN AND UP ROUTINES 


052120 
044514 


051122 
020116 
029105 
047105 


0425108 
020124 
047506 
054502 
044524 
040516 


020117 
043501 
044527 
042510 
020124 
047506 
051106 


051503 
020104 
030443 


033467 
042515 
047516 
020124 
006504 
082117 
020116 
030040 
054523 
020054 
620105 
044124 
051117 
046114 
043440 

612 
042105 
042503 
042522 
020114 
020116 
020101 
000108 
045517 
042101 
051511 
052101 


043040 
043516 


@51117 
051104 
051128 
006524 


052440 
047516 
047128 
051440 
043516 
006523 


047516 
042522 
044124 
052440 
047516 
047125 
046817 


026462 
044502 
006462 


033467 


053113 


044040 
052040 
053440 
042502 
054105 
051104 


046440 
051040 
042524 
052040 


ISeAPRe75 


EM243 


ASCII 


ASCII 


eASCII- 


ASCII 


eASCIZ 


eASCIZ 


17345 PAGE 440148 


JERROR ON DRIVE PRESENT/<15><12> 


/THE UNIT NO, FOUND BY SETTING RHAS/<{5><12> 


/D0 NOT AGREE WITH THE UNIT NO, FOUND FROM/<15><142> 


/RHCEZ°NED BIT 812/¢15><12> 


JATTITIOMEANS WO UNIT FOUND/<15><12> 


/NOTES ON DUAL PORT SYSTEM, DRIVE OW OTHER PORT WILL NOT GIVE/<49><12> 


/NEO HENCE THERE WILL BE AN EXTRA DRIVE/ 


/LOOK AHEAD REGISTER AT THE BEGINNING OF SECTOR IS IN ERROR/ 


4 





MAINDEC©41eDERPTASA 
DERPTA,Pii 


10910 


10911 


10912 


10913 


10914 


041160 
041166 
041174 
041202 
041210 
041216 
041223 
041230 
041236 
041244 
041252 
041260 
041263 
041270 
041276 
041304 
041342 
041320 
041326 
041334 
041342 
041350 
041356 
0413357 
041364 
041372 
041400 
041405 
041412 
041420 
041426 
041434 
041441 
041446 
041454 
041462 
041470 
041476 
041504 
041512 
041520 
041526 
041530 
041536 
041544 
041552 
041560 
041566 
041574 
041602 
041610 
041613 
041620 
041626 


MACY11 


042510 
047111 


041040 
0446516 
020106 
051117 
0471113 


042524 


052106 
051440 
047101 
082111 
041503 
0511065 
0444409 
047503 
006524 
042526 
091117 
052040 
042523 
044440 
052101 
047165 
042042 
051525 


051040 
047503 
020104 
020122 
0404408 
041563 
020105 
€31048 

012 
041503 
051931 
047440 


27(657) 


ISeAPRe75 


UP ROUTINES 


043505 
043516 
642523 
044440 
042440 

000 
020113 
020104 
052123 
020123 
053122 


042522 
046131 
020122 
647040 
052161 
051565 
041440 
042504 
044507 
006522 


051105 
042505 
020104 

000 
043440 
052101 
020123 
051122 

012 
054522 
020104 
044516 
052103 
020123 
043448 
044440 
052101 
042105 


040505 
046515 
043101 
840504 
042116 
044040 
042502 
040505 


051040 
042524 
020122 


EM3i3 


ASCII 


eASCIZ 


eASCII 


ASCII 


eASCII 
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/LOOK AHEAD REGISTER 15 IN ERROR/ 


/CURRENT CYLINDER DOES NOT MATCH DESIRED CYLINDER REGIHSTER/<15$><12> 


AFTER A SEEK AND INIT/ 


/ECC GENERATED 18 INCORRECT/<15><12> 


/TVERY WORD ON THIS SECTOR IS THAT GIVEN IN "DATA USED®/ 


/ON READ COMMAND AFTER DATA AND ECC HAVE BEEN READ/<15><12> 


/ECC REGISTERS OR RHERL 18 IN ERROR/<35><12> 


,9e~esneeoeeoeteeegeeveeteeeeghmUmUOtWmlmlUmlCOUCOlC mC“ léi H}:CW 


F 
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10917 


10918 


10939 


10920 


041634 
041642 
041650 
041656 
041657 
041664 
041672 
941700 
041706 
041714 
041722 
041730 
041736 
041737 
041744 
041752 
041760 
041766 
041774 
042002 
042010 
042014 
042022 
042030 
042036 
042044 
042052 
042060 
042066 
042074 
042102 
042110 
042116 
042124 
042132 
042140 
042146 
042154 
042161 
042166 
042174 
042202 
042210 
042216 
042224 
042232 
042240 
042246 
042254 
042255 
042262 
042270 
042276 
042304 


044122 
051531 
051105 

612 

147 
047514 
030461 
020123 


020116 


MACY11 27(657) 
POWER DOWN AND UP ROUTINES 


051105 
044440 
047522 


046116 
042527 
041040 
043117 
042824 
043505 
020116 
040505 


044510 
082817 
052161 
053817 
020061 
047440 
042117 
000061 
044107 
052116 
047640 
052108 
0511065 
034465 
045503 
047822 
041505 
020124 
644510 
042510 
641040 
041503 
020056 
030462 
051517 
051517 
020116 
052123 
020122 
092111 


047122 
051531 
047131 
041505 


053517 
020063 
047440 
052124 
042522 


020131 
020122 
052111 
050040 
047122 
020056 
042502 
006504 


020123 
042114 
044103 
051105 
044502 
020106 
042440 


041440 
041040 
052117 
040440 
031440 
041446 
000123 
642040 
020124 
047516 
044107 
020116 
052111 
031040 
040510 
0$5040 

200 
052111 
042522 
051105 
030461 
020123 
052101 
051040 
042524 
047503 
006524 


051105 
044502 
620106 
051105 
044507 


iSeAPRe75 


ASCII 


eASCIZ 


eASCIZ 


eASCIE 


eABCII 


1784S PAGE 44150 


/OWLY LOWER 11 BITS OF PATTERN REG, CAN BE READ/<15><42> 


/THIS SHOULD MATCH LOWER 11 BITS OF GOOD ECCi/ 


/HIGH COUNT BIT NOT SET AFTER 36859 CLOCKS/ 


/EERO DETECT BIT NOT HIGH WHEN 32 BIT ECC REG, HAS 21 ZEROS/ 


/POSITION REGISTER OR 11 BITS OF PATTERN REGISTER INCORRECT/<15><12> 


/LOWER 1) BITS OF PATTERN REGISTER SHOULD MATCH LOWER/<15><42> 


» 


MAINDEC #11 eDERPTAA MACY11 27(657) {S5eAPRe7§ 17345 PAGE 440151 
DERPTA,Pii POWER DOWN AND UP ROUTINES 


042312 052123 651105 651440 
042328 047518 646125 620104 
042326 640515 641524 9201106 
042334 047514 642527 006522 
042342 012 
10921 042343 061 6820061 644502 eASCII /11 BITS OF GOOD ECC1/<15><12> 
042350 051524 647440 620106 
042356 647507 642117 042440 
042364 0415603 006461 012 
10922 642371 104 052101 0642440 eASCIZ /DAT ENVLOP GOOD POSITION AND NeCODE ZEROS ARE IN OCTAL/ 
042376 653116 047514 620120 
042404 047507 042117 eS0040 
042412 051517 @52111 047511 
042420 620116 047101 620104 
042426 026516 0475803 642504 
042434 055040 051105 051517 
042442 640440 0642522 044448 
@42450 020116 041517 640524 
042456 000114 
10923 042460 047117 081048 940505 £636: eAGCII /ON READ COMMAND WITH NON@CORRECTABLE ERROR DCK AND ECH SHOULD BE SET/<1 
042466 620104 0647503 646515 
042474 047101 620104 644527 
042502 044124 6476048 647117 
042510 041455 681117 042522 
042516 052103 641101 0642514 
042524 0642448 681122 051117 
042532 042048 645503 940440 
042540 042116 0423448 044103 
042546 051440 647810 046125 
042554 0620104 642502 0651440 
042562 052105 005015 
10924 042566 043111 #80040 661517 eASCIZ /IF POSITION REGISTER 810040 OR 10041 IT 18 GOOD/ 
042574 ©52111 047513 020116 
042602 042522 044507 652123 
042610 051105 0636449 630061 
042616 032068 620060 0661117 
042624 0630440 630060 0630464 
042632 044448 020124 061511 
042640 643440 047517 6809104 
10925 042646 051127 @52111 6471411 M375 eASCIZ /WRITING WITH BUS ADDRESS HIGHER THAN 26K CAUSED ERROR/ 
042654 6260107 0844527 044124 
042662 041040 081525 640440 
042670 042104 0642522 981523 
042676 0440408 043511 042510 
042704 920122 044124 647101 
042712 6310468 648470 641440 
042720 652501 642523 920104 
042726 051105 06475822 000122 
10926 042734 020040 641520 0620048 DHii eASCII / PC Test REG, GOOD RECEIVED/<15><32> 
042742 020048 620040 042524 
042750 652123 620040 020040 
042756 042522 627107 920040 
042764 020048 647507 642117 
042772 8620040 642522 942563 





re 
~» 








MAINDEC ©11 eDERPTASA MACY11 27(657) iSeAPRe7S 171545 PAGE 440152 
DERPTA,Pii POWER DOWN AND UP ROUTINES 


Cc 
€ 
2430008 053111 042105 ee5ei15 
10927 043006 0620040 ©200¢0 620040 eASCIZ / NO ADDR, DATA DATA / ¢ 
043014 020040 620048 047040 
043022 020117 ©200¢8 040440 
043030 042104 027122 020040 € 
043036 020048 940604 040524 
043044 020040 0620040 040504 
043052 040524 020040 ace Cc 
10928 043057 040 050068 020103 DH2: eASCII / PC TEST WORD GooD BAD /<45><12> 
043064 ©2004@ 082040 081505 
043072 020124 20040 020040 € 
043100 053440 051117 020106 
043106 020040 043446 047517 
043114 020104 620040 020040 © 
043122 040802 020104 006440 
043130 012 
10929 043131 048 020040 020040 ASCIZ / no wo DATA DATA / € 
043136 020040 020040 047516 
043144 020040 620040 620040 
043152 6200460 647516 620040 © 
043160 ©@20040 042040 682101 
043166 6201601 620040 042040 
043174 052101 620101 eeeede (a 
1093@ 043202 020048 641520 620040 DHiis ,ASCIZI / PC TEST FAILING CONT, CONT, CONT, CONT, /<15><42> 
043210 020040 020040 642524 
043216 052123 620048 040506 © 
043224 046111 047111 620307 
043232 041440 047117 6271246 
043240 020040 041448 047117 € 
043246 027124 @20040 045440 
043254 047117 0627124 20040 
043262 041448 047117 627124 © 
043270 006440 912 
10931 043273 040 020040 020040 eASCIZ / NO REG ADR RHC8i 8 RHCS2 3 8 RHDS3) = RHE / 
043300 920940 020040 020040 € 
043306 647516 020040 081040 
043314 043505 040448 051104 
043322 051040 641810 030523 © 
043330 020040 651040 041518 
043336 631123 @20040 651040 
043344 042110 030523 020040 © 
043352 @5104@ 642510 630822 
643360 ag 
10932 043361 040 020040 041528 DHi4s ,ASCII / PC TEST FAILING CONT, CONT, CONT, CONT, CONT, /418><3 © 
043366 0620040 020048 052040 
043374 051505 ©20124 043040 
043402 044501 044514 043516 © 
043410 020040 041440 047117 
043416 027124 ©20040 041440 
043424 047117 ©27124 #20660 © 
043432 041440 047117 027124 
043440 020040 041440 047117 
043446 027124 @20040 041440 @ 
043454 047117 027124 906440 
€ 
Ce 


olC uUTOUrlSTTU cseGUlmcsrTcsetTUc seTUc srTUlhc srTUlc 8)]ctlhl _crTUlTTrTrTrlc 8TtcTUc sTeTrTUlUc sTrTUlUc TrTCUCUCc TTCUc TTmUCUCUc OrmhUChUhTFrmUlhUhSH HF 





MAINDEC©1 1 eDERPTACA 
DERPTA,Pii 


10937 


043462 
043463 
043470 
043476 
043504 
043512 
043520 
043526 
043534 
043542 
043550 
043556 
043563 
043576 
043576 
043604 
043605 
043612 
043620 
043626 
043634 
043642 
043650 
043653 
043660 
043666 
043674 
043702 
043710 
043716 
043724 
043732 
043746 
643746 
043754 
043762 
643770 
043776 
044004 
044012 
044016 
044024 
044632 
044040 
044046 
044054 
044062 
0440708 
044076 
044104 
044107 
044114 
044122 
044130 


MACY11 


012 

040 
020040 
047516 
043505 
020040 
042522 
041510 
051040 
020040 
030523 
0425308 

04d 
0200408 
020056 

000 

048 
020040 
052101 
044502 
020046 
020040 
006507 

040 
020040 
020103 
047101 
040440 
051523 
042524 
020040 
020640 
052123 
047503 
020040 
020056 
052116 
047503 
020040 
020056 
020040 
020040 
020117 
044122 
020040 
020040 
041527 
044132 
020040 
020062 

640 
0200408 
020124 
047117 


020040 
020040 
020040 
040440 
040562 
020167 
030523 
041510 
051040 
020040 
030522 
020040 
031040 
042101 


050040 
826040 
620060 
020124 
042822 
@20048 

012 
620040 
020046 
020040 
042524 
042104 
041440 
032116 
6526468 
020040 
@20846 
052116 
047503 
@20040 
020056 
052116 
047503 
005015 
020040 
020040 
0200408 
040502 
044122 
020640 
020040 
051503 
044122 

600 


628049 
052040 
020040 
020124 


27(687) 


1SeAPR°7§ 


UP ROUTINES 


020040 
020040 
051040 
051104 


027122 


020103 
053440 
620040 
020040 
020107 
042522 


620040 
080040 
053440 
020104 
042522 
047117 
000123 
020103 
042524 
6200408 
@20056 
052116 
047503 
626040 
@20056 
052116 


020040 
047040 
020040 
020040 
041104 
044122 
620068 
020061 
053503 


041520 
0516805 
842468 
O26060 


DHI7s 


eASCIZ / 


eASCIZ / 


eASCII / 


eASCIZ / 


eAGCIZI / 


eABCIZ2 / 


eASCir # 


PC 


17845 PAGE 440153 


NO REG ADR BAD REG RHCSi RNCS2 


REG, ADR,/ 


Wat BIT REG REG/<€15>¢12> 


BC WANTED ADDRESS CONTENTS/ 


TEST CONT. CONT, CONT. CONT, 


NO RHBA RHOB RHWC RHCBI 


TEST cont Cont Cont cont 


RKOS1 RHERI/ 


CONT, /4359><¢32> 


RHCE2 / 


CONT/<15><412> 


xae@ee#e#e@ee@ee@eee@e@e#@ee?ee?ee?deeeeeeteee *®@ 


10942 


12941 


10942 


10943 


10944 


10945 


10946 


= 


044136 
044144 
044152 
044160 
044166 
044174 
044175 
044202 
044212 
044216 
044224 
044232 
044240 
044246 
044254 
044262 
044263 
044270 
044276 
044304 
044312 
044320 
044326 
044334 
044342 
044350 
044356 
044364 
044372 
044400 
044404 
044412 
044420 
044426 
044434 
044442 
044446 
044454 
044462 
044470 
044476 
044503 
044510 
044516 
044524 
044532 
044540 
044546 
044554 
044562 
044563 
044570 
044576 
044604 


MAINDEC*11*DEFPTASA 
DERPTA,Pil 


MACY11 


POWER DOWN AND 


041440 
0220420 
020124 
@47117 
041442 

012 

040 
0200428 
020040 
042510 
051040 
020040 
031522 
0420510 
051040 

080 

040 
020040 
032123 
047503 
020040 
020040 
052116 
020040 
020040 
020117 
044122 
020040 
020640 
030523 
020040 
020040 
020040 
051501 
044122 
020040 
022040 
020048 
020040 
@52111 
047125 

120 
020040 
052123 
042101 
043440 
020040 
047524 
041505 

012 

040 
020040 
027124 
046110 


@47117 
041440 
@20040 
020124 
047117 


020040 
020040 
020040 
@30522 
042510 
051040 
020040 
020123 
042110 


020040 
020040 
020040 
052116 
047503 
020040 
020040 
020040 
020040 
020040 
051503 
044122 
051040 
000040 
041520 
042524 
020040 
020040 
051503 
005015 
020040 
047516 
020040 
020040 
052111 
020103 
051040 
020040 
020040 
047817 
051440 
@20122 
047524 


020040 
041440 
020040 
020101 


27(657) 


ISeAPPe75 


UP ROUTINES 


020124 
047117 
041440 
020040 
006524 


020040 
047516 
051040 
020040 
031122 
042510 
051040 
020040 
030523 


041520 
042524 
020040 
020040 
052116 
047503 
005015 
020040 
047040 
020040 
020061 
051501 
042110 


020040 
052123 
044122 
020040 
020062 


020040 
020040 
947125 
020040 

000 
o2004e 
042110 
041040 
020040 
020104 
041505 
051440 
006522 


020040 
047117 
051040 
020040 


DH24s 


eASCIZ 


ASCII 


eASCIZ 


eASCIT 


eASCIZ 


ASCII 


eASCIZ 


17345 PAGE 44°154 


/ NO RHERY 


f TEST CONT 


4 NO RHCS1 


4 PC TEST RHAS 


4 NO UNIT 
7Pc RHDST BAD 
/ CONT, RHLA 


RHER2 RHERJ RHAS RHDS1i/ 


cont CONT /€45><€12> 


RHAS RHDS3 / 


RHCS2 4415>412> 


UNIT/ 


GOOD SECTOR SECTOR/<15><32> 


RHLA NO CLOCK/ 








fe35oee3ee5ueoewoeteeeee8kee8@ &@6hlcOhUcCOmhCcOlhCOhCUD 





MAINDEC e431 eDERPTACA MACY11 27(657) {S5°APRe75 17945 PAGE 440155 
DERPTA,Pii POWER DOWN AND UP ROUTINES q 


044612 051040 046118 620101 
044620 0620040 047040 020117 ( 
044626 020040 0200460 041440 
044634 047514 045503 808 

10947 044641 120 ©20103 ©20040@ DH26s ,ASCII /PC PC OF FAILING CONT, CONT, CONT, CONT, /<€15><12> 4 
044646 020048 080040 020103 
044654 043117 020040 043040 
044662 044501 044514 043516 ( 
044670 041448 647117 027124 
044676 020040 020040 047503 
044704 032116 020086 920040 i 
044712 041440 047317 027124 
044720 020040 020040 047503 


044726 052116 006456 612 ( 
10948 044733 940 020040 020040 eASCIZ/ JSR REG. ADDR RHCSi RHCS2 RHDSi RHERI/ 

044740 0200460 048040 051123 

044746 920040 620040 051640 { 


044754 043505 620086 642101 
044762 051104 681048 641510 
044770 630523 620048 631040 U 
044776 641518 0631123 620040 
045004 651048 642118 0630523 


045012 020048 081040 942510 1 
045020 030522 260 

10949 045023 120 020103 ©2006 0H27s; ASCII /PC PC OF TEST FAILING GOOD RECEIVED/<15><12> 
045030 020040 080048 020103 { 


045036 043117 620040 652040 
045044 051505 6260124 920040 
045052 043040 644501 644514 ( 
045060 643516 6434408 047517 
045066 020104 620840 051040 


045074 941505 0644508 042526 ( 
045102 006504 012 

10950 045105 640 020048 920040 eASCIZ / JSR No REGISTERDATA DATA/ 
045112 ©200468 045048 651123 i 


045120 920048 8206040 0620040 
045126 047516 620060 920040 
045134 051040 043505 661511 ( 
045142 042524 042122 052101 
045150 020101 0620048 642040 


045156 052101 000101 ( 
10951 045162 041520 620040 0620040 pH3es ,ASCII /PC PC OF REGISTER GOOD BAD/<15><42> 

045170 6200460 0415280 047446 

045176 020106 620048 642522 ( 


045204 044507 ©82123 951105 
045212 043440 0647517 0620104 


045220 920040 040502 906504 ( 
045226 012 

10952 045227 040 620040 020040 eASCIZ / JSR ADDRESS DATA DATA/ 
045234 020040 @45046@ 081123 ( 


045242 020040 920048 0404640 
045250 0642104 042522 651523 
045256 042040 082101 020101 ( 
045264 020040 640504 040524 





~ 


10954 


10956 


10957 


045272 
045273 
045300 
045306 
045314 
045322 
045330 
045336 
045344 
045352 
045360 
045366 
045374 
045402 
045410 
045416 
045424 
045432 
645440 
045446 
045454 
045462 
045470 
045475 
045502 
045510 
045516 
045524 
045532 
045540 
045546 
045554 
045562 
045570 
045576 
045604 
045607 
045614 
045622 
045630 
045636 
045644 
045652 
045660 
045666 
045674 
045702 
045710 
045716 
045720 
045726 
045734 
045742 
045750 


MAINDEC*11eDERPTASA 
DERPTA,Pil 


MACY14 


TY) 

040 
020040 
020124 
053440 
020040 
020104 
040502 
047117 
041440 
020040 
020124 
020040 
020040 
020040 
047040 
020040 
020040 
040524 
051803 
044122 
020040 
020061 

ese 
020040 
043117 
051508 
020040 
020104 
047517 
020040 
041440 
020040 
027124 
047117 
006440 

040 
020040 
020122 
047516 
020040 
020048 
052101 
042040 
051040 
920040 
030523 
042510 
o000se 
020040 
020040 
020106 
052123 
020040 


050040 
052040 
020040 
051117 
043440 
020040 
020104 
027124 
047117 
041440 
#20040 
020040 
047040 
0260408 
0260117 
6405046 
026040 
020040 
020061 
051504 
044122 
620040 
050640 
050040 
0200408 
020124 
053440 
020040 


041520 
641520 
020048 
020040 
047627 


27(657) 


ISeAPRe75 


UP ROUTINES 


020103 
051505 
020040 
020104 
047517 
020040 
041440 
020040 
027124 
047117 
0050615 
020040 
020117 
020040 
020040 
040524 


020103 
020103 
052040 
620040 
053117 
6434490 
020040 
020104 
027124 
047317 
041448 
020040 


620046 
051612 
020040 
020040 
047516 
042040 
e20040 
020101 
030523 
042110 
051040 
020040 


020040 
047440 
042524 
020040 
042122 


eASCII ¢ PC 


eASCIZ2 / 


eASCII / PC 


eABCIZ / 


eASCII ¢ PC 


17845 PAGE 44°156 


TEST 


PC OF 


JSR 


Pc OF 


TEST 


TEST 


DATA 


BAD CONT, 


DATA RHC8i 


GOOD 


DATA 


BAD 


CONT, 


CONT, CONT sessras2 

RHDS3 RHERS = / 

CONT, CONT, CONT, 

RHCS{ RHDS{ RHERI 
CONT, CONT,  /<45 





10959 


10960 


10961 


° 


045756 
045764 
045772 
046000 
046006 
046014 
046022 
046025 
046032 
046040 
046046 
046054 
046062 
846070 
046076 
046104 
046112 
046120 
046126 
046131 
046136 
046144 
046152 
046160 
046166 
046174 
046202 
046210 
046216 
046217 
046224 
046232 
046240 
046246 
046254 
046262 
046270 
046276 
046304 
046312 
046320 
046326 
046334 
046342 
046350 
046356 
046364 
046372 
046400 
046403 
046410 
046416 
046424 
046432 


MAINDEC 11 eDERPTACA 
DERPTA,Pi1i 


020040 
042117 
041440 
0200408 
027124 
0471147 
0064408 

040 
020040 
020122 
047516 
020040 
020040 
052101 
020040 
020061 
051504 
044122 
0200408 

126 
020048 
020124 


041503 
0424408 


MACY31 27(657) 
POWER DOWN AND UP ROUTINES 


020040 
020040 
047117 
041440 
020040 
027124 

012 
020040 
020040 
020040 
020040 
020040 


062101 


020040 
020046 
020848 
020061 
043503 
042440 
020040 
020062 
042523 
020040 
042524 
020040 
020040 


020061 
041503 


047507 
020040 
027124 
647117 
041440 
020040 


620046 
051812 
020040 
020040 
047516 
042040 
020040 
051503 
044122 
020040 
020061 


020049 
051505 
043440 
620040 
020104 
644522 
053440 
047105 
006501 


020040 
047516 
0424460 
020040 
020062 
041503 
042440 
020040 
060104 
020040 
052123 
0475807 
020040 
020040 
052124 
047520 
020116 
020040 
651105 


020640 
047516 
042440 
020040 
020062 


ISeAPRe75 


DH34s 


eASCIZ 


ASCII 


eASCIZ 


eASCII 


4 


7Pc 


/C 


173845 PAGE 44°157 


JSR 


TEST 


TEST 


ecci 


ecci 


Ecc2 


DATA RHCSi RHDSi = RHERI / 


WRITTEN WRITTEN DATA/<15><412> 


Ecc! eEcc2 USED/ 


PATTERN POSITON GOOD RHER1 /<415><¢142> 


REG, REG, POSITON REG,/ 





10964 


10966 


10967 
10968 


10969 
109708 


2 
» 


046440 
046446 
046454 
046462 
046470 
046476 
846500 
046506 
046514 
046522 
046530 
046536 
046544 
046552 
046560 
046561 
046566 
046574 
046602 
046610 
046616 
046624 
046632 
046636 
046644 
046652 
046660 
046666 
046674 
046702 
046710 
046716 
046724 
046732 
0467408 
046746 
046754 
046762 
046770 
046776 
047004 
047012 
047020 
047026 
047034 
047042 
047050 


047054 
047062 
047070 
047076 
047102 
047110 


MAINDECe1 1 eDERPTASA 
DERPTA,Pi1 


MACY11 


POWER DOWN AND 


020040 
020056 
643505 
050040 
047117 
000056 
041520 
020040 
020106 
052123 
044122 
020048 
047524 
052124 

@12 

048 
020040 
©20122 
0475136 
041440 
020040 
020056 
043505 
041520 
020040 
620040 
044523 
047520 
020116 
620040 
042117 
0405208 
020116 
020040 
047503 
02060408 
020048 
020040 
041503 
043440 
020040 
020061 
041503 
020040 
020640 
050117 
047522 


081116 
001124 
001116 
001124 
001116 
001124 


05104e 
020040 
020056 
051517 
051040 


020060 
041520 
020040 
020040 
051115 
0475208 
020116 
051165 


0206040 
020040 
020040 
@20040 
047117 
osie4e 
020040 
080056 
020940 
042524 
020040 
047524 
044523 
047507 
020048 
020040 
032124 
0405604 
020040 
042564 
020040 
047040 
020040 
020040 
047517 
042440 
020040 
026062 
041505 
047105 
020105 
000123 


004174 
001126 
004174 
000000 
004174 
001126 


27(6587) 


043505 
051040 
020040 
052111 
643505 


020040 
047440 
042524 
020040 
620040 
044523 
040520 
006516 


020849 
053512 
020040 
920040 
027124 
043505 
051040 


620040 
082123 
047520 
620116 
047824 
042117 
047507 
@20048 
051105 
040524 
026516 
005015 
020040 
020117 
042446 
020040 
020104 
041503 
042448 
020040 
020163 
046126 
042532 


031136 
000000 


1SeAPRe7S 17345 PAGE 440156 
UP ROUTINES 


DH36% 


DH373 


EVEN 
OTis 


DT2s 
OT33 


eASCII PC PC OF TEST RHMR POSITON PATTERN /<15><12> 
eASCIZ / JSR nO CONT, REG, REG,/ 
eASCIZI PC TEST POSITON POSITON GOOD GOOD PATTERN DATA neCODE/ 


eABCIZ / NO Ecc GoQD Ecc: 


eWORD SERRPC, TSTNM, REGADR, SGODAT, SBODAT, © 
eWORD SERRPC, TSTNM, ERWORD, SGDDAT,O 
eWORD SERRPC, TSTNM, ERWORD, SGDDAT, SBDDAT.O 


gEcc2 ECC ENVLOPE ZEROS/ 





10971 
10972 
10973 
10974 
10975 


10976 


10977 
10976 
10979 


10980 
10981 
10962 
10983 


10964 


10986 


10987 


10968 


047116 
047124 
047132 
047136 
047144 
€47152 
047160 
047166 
047174 
047202 
047210 
047216 
047222 
047230 
047236 
047242 
047250 
047256 
047264 
0472708 
047276 
047304 
047306 
047314 
047322 
047326 
047334 
047342 
047344 
047352 


047360 
047366 
047374 
047402 
047410 
047416 
047424 
047426 
047434 
047442 
047450 
047456 
047464 
047470 
047476 
047504 
047512 
047520 
047526 
047530 
047536 
047544 
047552 


MAINDEC*]1¢DERPTASA 
DERPTA.Pii 


MACY11 


001116 
001702 
001704 
001116 
001126 
001724 
001116 
001116 
001170 
001116 
001672 
001700 
001116 
6017108 
001724 
001116 
001720 
001116 
601126 
001116 
001172 
000008 
001116 
001702 
001704 
001116 
024234 
000006 
001116 
001124 


001116 
001124 
001724 
001116 
031136 
001702 
000006 
001116 
031136 
601724 
001116 
627130 
032734 
001116 
027130 
027140 
001116 
001722 
000000 
001116 
027140 
001734 
000008 


004174 
001700 
eeesee 
004174 
001702 
001704 
001172 
001176 
001126 
004174 
001674 
0000008 
004174 
001736 
000008 
004174 
001724 
004174 
600000 
001706 
003174 


062002 
001700 
eeecee8 
002002 
001124 


004174 
001126 
001704 
002002 
001124 
001724 


002002 
001124 
001704 
004174 
033734 
206808 
004174 
001734 
001704 
002002 
003732 


004174 
027126 
027144 


27(657) {SeAPRe7S 
UP ROUTINES 

001122 DTiis »WORD 
001724 

O@1122 DTi4s »WORD 
001700 

eeeeee 

eeeeee DTiS: 2 WORD 
001172 OTi6s WORD 
000000 

001676 DTI7s e#ORD 
001702 

001704 DT208 WORD 
001720 

001702 DT2is 40RD 
009000 

001124 DT228 e WORD 
001126 DT24: WORD 
001176 

001122 DT26s eo WORD 
001724 

004174 DT27s eo WORD 
001126 

024234 DpT30% eWORD 
eceeeee 

031136 pT3is eWORD 
001762 

680006 

004174 DT32s e¥ORD 
001126 

001704 

004374 DT338 eWORD 
0017062 

eeoeee 

027126 DT34s eWORD 
033736 

027126 DT35s eWORD 
001732 

900000 

004174 DOT36s WORD 
001734 

001732 DT37s eWORD 
627130 

027146 
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SERRPC, TSTNM, SBDADR,CS1,CS2,081,ER1,0 
SERRPC, TSTNM, SBDADR, SBDDAT,CS1,CS2,081,ERi,0 
SERRPC,STMP1,0 
SERRPC,SOTMP3,STMP1,STHPO, SBDDAT,@ 

SERRPC, TSTNM, BA, OBs WC,CS1-CS52,0 


SERRPC, TSTNM, ERI, ER2,ER3,A5,081,0 


SERRPC, TSTNM,C515A5,081,0 
SERRPC, TSTNMs SGDDATs SBDDAT»O 
SERRPC, DST, SBDDAT, STMP1,OTHP2,6TMPS.O 


SERRPC, PC JSR, SBOADR,C81,C82,081,ER1,8 


SERRPC, PCUSR, TSTWM, REGADR, SGODAT, SBDDAT,@ 


GERRPC, PC JSR, REGADR, SGODATs SBODAT.O 


SERRPC, TSTNM, ERWORD, SGDDAT, SBDDAT/CS1,081-ER1,0 


SERRPC, PCUSR, TSTNM, ERWORD, OGODAT, SBODAT,CS81,081,ER1,0 


SERRPC, PCJSR, TSTNM, ERWORDs SGDDAT/CS1 e081, ER1+0 


SERRPC, TSTNM, GECCi» GECC2, WECCi» WECC2,DISK,@ 


SERRPC, TSTNM, GECC1, GECC2,EC2,ECi, POSITI, ERI, @ 


SERRPC,PCJUSR, TSTNM, MR, EC1,EC2,0 


SERRPC, TSTNM, ECi1, POSITI, GECC1, GECC2, EC2, DATENV, ECODE,® 


° 





MAINDEC 11 eDERPTASA MACY11 27(657) i1SeAPRe75 
DERPTA,Pii POWER DOWN AND UP ROUTINES 

10991 047554 000 200 000 DFis BYTE 
047557 000 000 

10992 047561 000 000 001 ODF2: BYTE 
047564 000 

10993 047565 020 600 001 OF3! eSYTE 
047570 000 000 

10994 047572 000 eee 000 OFiis BYTE 
047575 000 000 000 
047600 0008 

10995 047601 000 800 000 DFi4: eSYTE 
047604 000 000 600 
047607 000 0008 

10996 047611 000 000 DF iS: BYTE 

10997 047613 200 000 600 DFiés BYTE 
047616 000 

10998 047617 000 000 000 OFI7: BYTE 
047622 800 bee 000 
047625 000 

10999 047626 000 800 000 DOF20% BYTE 
047631 000 600 000 
047634 200 

11000 047635 000 800 000 DF2i: BYTE 
047640 000 000 

110@1 047642 000 eee 000 DF22: BYTE 
047645 000 

11002 047646 0008 000 600 OF24: BYTE 
047651 000 000 600 

110@3 047654 800 0008 600 DF26% BYTE 
047657 000 0008 060 
047662 000 

11004 047663 200 660 000 DF27% BYTE 
047666 600 eee 600 

110@5 0647671 000 600 000 DF30: BYTE 
047674 000 000 

11006 047676 800 000 061 DF3is BYTE 
047701 000 eee eee 
047704 000 008 

11007 047706 000 000 000 OF32: BYTE 
047711 001 000 060 
047714 000 008 080 

11008 047717 000 000 000 DF33: BYTE 
047722 001 0008 000 
047725 800 000 

11009 047727 000 000 060 OF34: BYTE 
047732 000 000 000 
047735 000 

11010 047736 000 000 000 DF3S:s BYTE 
047741 000 000 800 
047744 800 800 

11011 047746 eee 002 000 DF363 e BYTE 
047751 000 0008 @00 

11012 047754 000 802 000 DF37: BYTE 
047757 800 000 000 
047762 200 008 080 


17845 PAGE 44160 


8,0,0,0,0 
0,8,1,0 
0,0+1,0,0 
0,0,0,0,0,0,8 


0,0,0,0,0,0,0,0 
6,8 

0,0.0.0 
0,0,0,0,0,0.0 


0101010e0,0,0,8 


0.050.0,0,8 
0202050100020 00,8 


MAINDEC1 1 eDERPTASA MACY11 27(657) 1S5°APR°7S 17345 PAGE 44°161 
DERPTA,Pil POWER DOWN AND UP ROUTINES 

11613 047766 e EVEN 

11014 

11015 000001 END 








eee 

7 é 

MAINDEC©11eDERPTASA MACY31 27(657) {SeAPRe7S 17545 PAGE 44162 
e DERPTA,Pi1 SYMBOL TABLE € 

ACL = 800040 ACU & 100000 ACE 8 001000 AS 001720. 

ATA = 100000 ATABLE 004200 ATTENT 002004 ATO = & 900001 € 
® ATi ® «000002 AT2 8 000004 AT} —s ® 000010 AT4é) = && 000020 

ATS = 000040 AT6 8 000100 AT? © 000200 AI6—s = 00400 
e Ai? ® 001000 Ba 001676 BAI ® @00010 BASECH 030056 € 

BEGIN 004220 BEGIN2 004210 BITST 024236 BITO = 00000: 

BIT0O = 000001 BITO1 s 000002 BITO2 © 000004 8IT03 © 900010 
e BITO4 = 000020 BITOS = ee0ode BITC6 = 000100 BITe7 = 000200 € 

BITOS = 800400 BITO9 = 001000 BITi = 000002 BITIO = 902000 

BITii ® 604000 BITI2 © 010000 BITI3 © 020000 BITI4 = 940000 

BITIS © 1e9000 BIT2 © 900004 BIT} «© eneeie BIT4 = 000020 € 
€ BITS = 000040 BIT6é = 000100 BIT? = 000200 BIT® © 0004e0 

BITS = 801000 BLTi 4 4=—«-_-«-@ 24264 BLT2 4=—s_«@ 24306 BLT} «=—«-_«-@ 24346 
e BPTVEC® 900014 CA 001714 cc 001740 CHECKD® 164422 € 

CHECKE 024706 CHECKT 024524 CLAREA 024406 CLDISK 024470 

CLR ®& 00040 COMHD 930706 COMPA 031730 COMPAR 025342 
e COMWHD 933776 COUNTD 032376 crc 025646 CRLF © 900200 € 

CSF = 000002 CSU) os 000010 Csi 001702 C82 001700 

CYL 031016 DAREAD 031072 DATENY 027144 DAWORD 031076 

DB 001672 DOCK 8 100000 DCL «6 ® e00iee DCLEAR 002026 « 
€ DENVL = 000200 DEi = & 900040 OFF20 = 000002 oF’ 047556 

DFii 047572 DFi40=—_s 47601 DFiS) «ss 47631 OF16 4«=—«-_-@ 47643 

DFi?7 «=—«- @ 47617 or2 047563 DF20 40 -_«-@ 47626 OF23 4 047635 € 
é DF22 047642 DF24 4 40—._-@ 47646 DF26 4«=«-_-@ 47654 DF27 © 047663 

DF3 047565 DF3@ 40s 947671 DF3i «=—«-_-«-@ 47676 OF32 («6 47706 

DF33s-@47717 DF344=—s_- 047727 DF3S -_-@ 447736 DF36 4 4=—_-9 47746 «< 
@ DF37 «=—«-_«@ 47754 DFS) = 900001 DHS 042734 DHii = «0 43202 

DHi4 4 0=—s-«@ 433614 DHiS) «=: 943563 DHi6 «=—s_s«@ 4368S DHi7 = ss @ 449724 

DH2 043087 DH20 0s «@ 44107 DHai 044263 DH22 0 (944404 
G DH240=— (44503 DH26 4=_ «9 446 44 DH27? = «s« @ 48023 DH}@ 40=—-_ «0 445162 

DH31 045273 DH320 ss: 9 48475 DH330 ss 9 448720 OH34 8=._ «0 46134 

DH3S 4=—s-s«@ 46304 DH3640=—_s 0 446880 DH}? «=—_« 9 466 36 DIGB = 9eeeeé € 
é DISK 032734 DISPLA® 177570 DLT © 1800000 OL64 © 000020 

DMD = 000001 DPR 8 000400 DRY 8 900200 Ds 001706 

DSi 001724 DT 001726 DTAGAP 033740 DTE §= = 010000 € 
@ DTSY = 001000 DT! 047054 DTii «=—-_«@ 47416 DT140=— 47336 

DT1S 047160 DT16 4«=—«_s«-@ 47166 DT17 «=—s_s«@ 47202 oT2 047070 

DT2@ ©: 047222 DT2i 4s «047242 DT22 «47286 DT2404=—s_« 947270 «< 
€ DT26 —«--«@ 47306 DT27 «=—_s«@47326 DT3 047102 DT3@ 0s 047344 

DT31 047360 DT320s« 047462 DT33 «947426 DT3404=—s_« 447450 

D735 s-@ 47470 DT360=—-_s«@ 47812 DT}? «=—_«@ 47530 DVA = 904000 € 
G ECDATA 027124 ECH 6s 000100 ECI © 004000 ECORR 027550 

ECTEST 027162 EC 001732 £C2 001734 EMTVECs 900030 

EM 040130 EMii 040301 EMié 040334 cMis 040354 q 
Se EMi6 040425 £M4? 040446 EM2 040213 M20 040472 

£M2i 040513 M22 0949535 EM240=—s_s«@ 41130 M25 =—s_-@ 44.223 

EM30 ss 4263 £M31 4 =—_-@ 41.405 EM320 «943530 M33 0 @ 420144 € 
G EM34 042066 EM35 042161 —EM36 042460 EN}? 042646 

EM6 040242 ERCRC 934142 ERFLGs 001774 ERHDGP 934144 

ERHEAD 034140 ERPOS 027546 ERR © 040000 ERRVEC® 900004 « 
o ERSTAR 030662 ERUNIT 030660 ERWORD 031136 ER 001704 

ER2 001710 ER3 001716 EXT1 = 00000; EXT1® = 900010 

EXT2 = 900002 EXT20 = 900020 EXT4 = 000004 ExT40 = 900040 € 
e FEN ®8 900200 FER © 000020 FILLEC 027722 FIRST 004176 
& 

u @ 





ae 
® 


MAINDEC 11 eDERPTASA 


DERPTA,Pi1 


FMT22 ® 010000 
FSYNER 034136 
GECC2 027130 
HARDER @27142 
HCRC 8 000400 
HEDGAP 031032 
TAE 0 = &®—s« ©2000 
ILR) = & 009002 
KEY4 031022 
KIPAR2® 172344 
KIPAR6® 172354 
KIPDR2® 172304 
KIPOR6® 172314 
LERR 024232 
MCLK ® 000002 
MIDDLE 026672 
MPE 8 8600400 
MSTCK & 000010 
NCOUNT 027136 
NOPERA 002020 
NUNIT 001766 
OFSETC 002052 


OF400 © 000020 
opt & 020000 
PAT 8 000020 
PIE1 & 100000 
PIE13 ® 900010 
PIE17 © 109000 
PIE20 ® 010000 
PIE24 © 000400 
PIE28 = 000020 
PIE31 ® 000002 
PIE6 ® 002000 
PIP #8 020000 
PLU #8 920000 
PRe § 009000 
PR4 8 & 0090200 
PS ® 177776 
PUTREG 924170 
P24 027160 


RDCHR © 104412 
RDY s 800200 
RECALI 002024 
REGSAL 037160 
RETCL 002054 
RHCC 001670 
RHDST 001636 
RHEC2 001664 
RHLA 001666 
RHaC 001624 
RNO 035302 
RPVECT 035416 
Ri 88000001 
RS 88000005 


MACY11 27(657) 


SYMBOL TABLE 


FNWORD 
FUTABL 


034162 
002020 
000001 
026250 
034146 
031034 
000100 
000020 
031024 
172346 
172366 
172306 
172316 
002000 
020000 
000004 
001722 
000840 
010000 
031132 
100000 
000004 
000002 
000200 


%900007 


000108 
e0eee4 
040000 
004000 
000200 
680818 
000001 
001000 
477772 
027140 
000040 
000240 
002000 
000024 
027182 
031140 
031732 
035306 
003130 
001650 
001632 
001654 
001634 
001652 
031126 
022762 
031124 


ISeAPRe7S 


FORMAT 
Gere 
GRV 8 
KCE B 
HOWSYN 
HEGAP 
ILF 8 
IR is} 
KIPAR@®s 
KIPAR4e 
KIPDRge 
KIPDR4és 
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032400 
034132 
000010 
000200 
032732 
032720 
000001 
000180 
172340 
172380 
172300 
172310 
001736 
027004 
001000 
000256 
000020 
001800 
004000 
001764 
003732 
000010 
000040 
031162 
002002 
008040 
OG8802 
620000 
082000 
000108 
020000 
010000 
0900460 
060240 
000020 
000100 
668300 
000001 
027154 
033304 
104414 
082044 
002046 
002030 
001626 
001630 
001656 
001640 
001642 
031130 
023006 
031120 


R3 =%000003 
R7 8000007 


FOUT 034166 
GECCci’ @27126 
HADTMP 027150 
HCI S 902000 
HEADER 632706 
NT ® @00011 
ILLEGL 602062 
IXE 8 e04ee0 
KIPAR{® 372342 
KIPARS@ 372352 
KIPDRis 372302 
KIPORS® 172312 


LAD 024450 
MASK 024230 
MID 026774 


MOL = 910000 
MSE s 900020 
NCODE 627134 
WHS 8 002000 
NOWORD 631064 
OFREV = 600200 
Or2S = 800001 
OPERSE 023416 


PAR 8s 900010 
PGE 8 002000 
PIEI2 © 900020 
PIEI6 © 900001 
PIE2 # 049000 
PIE23 = 901000 
PIE2? © e9e0te 
PIE}@ © 9n0004 
PIES = 904000 
PIES = 909200 
PKACK 902056 
PROG 8 901000 
PRE =® 900140 
PRI 8 000340 
Paw 6s 477776 
P22 027156 


RCYL 034122 
RDOCT @ 104416 
READIN 002060 
REGADR 024234 
RESVEC® 900010 
RHCA =. 9011644 
RHDB = @ 01622 
RHECL 001662 
RHER} 901646 
RHSN 8 =_ «9 01660 
RMR os 000004 
RPVEC 001620 
Ro 30s wR CRERE 
RG = B RCCRE4 
SAVDT 001776 





xis ¢@ 


MAINDEC oe] 1 eDERPTAcA 
DERPTA,Pii 
SAVER 025146 
scrc 034214 
8¢2 8 000200 
SECGAP 032636 
SEGPER 034134 
SILOTB 032734 
SN 001730 
SRi s 177574 
S&YN 031030 
$813 012276 
$83 012120 
STACK 8 001000 
Swo 8 000001 
SW23 8 080010 
8WO7 8 000200 
SWi® s 0802000 
SwWi4 8 049000 
Sw4 8 800020 
SwB 8 000400 
TOF 8 000040 
TKVEC & 800060 
TPVEC 8 0090064 
TRKi 8 004000 
TRK4 8 8620000 
TSTNM 004174 
TSTi2 010344 
TST16 012530 
T8T21 014354 
TST25 016724 
TST30 020564 
TST34 022722 
TST6 007274 
TY 031134 
TYPON 8 104406 
UNIT 001762 
UNS &S 040000 
Us4 3 000004 
vV ® 000100 
WCE 8 040000 
WOYL 034122 
WKEY2 034130 
WRCHDT 002036 
WRFROM 002064 
WRITE 032164 
WSSYNC 032704 
x 031026 
ZER S 000400 
SBELL 001210 
6CM2 & 900014 
sCRLF 001215 
SENDAD 023352 
sEOp 023246 
SERROR 037152 
SERTTL 001112 


MACY11 27(657) 


SYMBOL TABLE 


SAVSN 
SCYL 
sc2e s 
SECOTR 
SELECT 
SKEY1 
SND) 
&R2 GS 


002000 
034204 
002900 
031020 
001770 
034216 
005232 
177876 
012066 
012304 
0121246 
O84224 
000001 
000020 
000400 
004600 
108000 
000040 
0010080 
8O2814 
002016 
000034 
040000 
000014 
005340 
010774 
013142 
015102 
017482 
021304 
023016 
007636 
1044160 
104404 
001742 
020008 
000010 
025026 
000040 
033734 
0204600 
002034 
034216 
004000 
808004 
006552 
032402 
036376 
000006 
036162 
023302 
023274 
001116 
001206 


ISeAPRe7S 
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sc S 100060 
sCi =—s_—« &s @OH1 08 
sC4) = &@s- 800400 
SECTR 9835030 
SERCH 602032 
SKEY2 034212 
8P 82000006 
SRB = 172516 
8510 012240 
6815 012344 
885 012130 
STKLMTe 177774 
S¥01 8 800002 
swes) 8 000040 
sve9 = 001000 
S412 8 810000 
642 8 4000004 
646 )0=6s 000108 
TAGDTE 602016 
TESTAD 023466 
TOLGAP 033742 
TRE 8 940000 
TRK2 8 610000 
TSECC 002012 
TSsT1i® 8 §6©©810000 
TST14 4 =—66 11416 
T8T2 005614 
T6T23) 0s - 815512 
T8T27 «=. 28062 
T8T32 022046 
TST4 005732 
TTNO @ 000034 
TYPE s 104400 
T,8COP 024452 
UNITSL 001772 
Usi =—s- & 000001 
vUF ss 000002 
WAT 8 104424 
were 032716 
WECC2 033736 
WORD 031726 
WRCHHD 925200 
WRIDAT 902040 
WRU #8 900400 
WIRK 034060 
x 031066 
SBDADR 001122 
SCMTAG 601100 
SCK4 8 900006 
SDOAGN 023362 
SENDMG 023366 
SERFLG 001103 
SERRTB 0601220 
SFILLC 001150 


SCcOPi = 
8cie® s 
SEARCH 
SEECOM 
SETDSK 
8KI @ 
SRO g 
SSECTR 
$812 

882 


SERRTY 
OFILLS 


104420 
001000 
035032 
002050 
026122 
040000 
177572 
034206 
012278 
012514 
012156 
177570 
000004 
000100 
660002 
020060 
000010 
000200 
eeeai4 
025624 
002006 
030770 
100000 
027132 
810026 
011770 
013644 
016214 
065660 
022610 
007036 
000100 
104462 
005650 
002022 
860862 
610000 
001674 
688601 
034126 
025504 
032404 
@02044 
034124 
032162 
027146 
001126 
000006 
037005 
036152 
023403 
001115 
037314 
001147 
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DERPTA.P11 SYMBOL TABLE 

SGDADR 01120 SGDDAT 001124 8GET42 023324 8HD © eeecee 
SHIOCT @371S8@ SICNT 001104 SILLUP 040132 SITEMB 003114 
sLF 001216 SLPADR 001106 SLPERR 003110 OMXCNT 635744 
SNULL 001146 SNWrsTe 900001 SsOCNT 037712 SOMODE 037714 
SOVER 035730 PASS 001100 SPOWER 040120 OPWRAD 040106 
SPWRON 037764 SPWRNG 940102 SPWRUP 040032 SQUES 001214 
SRDCHR 036602 ORDLIN 036666 SRDOCT 37012 SRDSZ © 990011 
SREGAD 0211582 SREGS 901154 GREG] 001156 SREG2 001160 
SREG3 001162 SREGG 001164 SREGS 001166 SRESET 023350 
SSAYR6 040116 SCOPE 035460 SSETUP® 900017 6881 = seccee 
$STUP’ = 377777 SSVLAD 035702 SSUR © 167700 SSWRNKe gee0ee 
STIMES 901204 STKB «© 9 01140 STKCNT 936406 OTKINT 036424 
STKOEN® 936423 © STKOIN 936406 STKQOU 036410 STKQSR 936412 
8TKS 0011 STKSRVY 936474 STMPe 901170 TMP; 0014172 
STMP2 001174 STHP2 ©9011 76 STMP4 §=—. 9 01280 STMPS 901202 
STN = ® 909036 eTPB = «901144 OTPFLG 001151 TPS) = «(901142 
STRAP 3774 STRP «© 900026 STRPAD 037736 STSTNM 901102 
STTYIN 93677 OTYPDS 035746 TYPE 936172 STYPEC 936332 
STYPEX 936400 STYPOC 937514 STYPON 937530 STYPOS 037470 
SXTSTR 035506 SSTRP = e00002 COFILL 037713 ° = 047766 

ee 


ERRORS DETECTED: 6 


#DERPTA, DERPTADERPTA, SUL, DERPTA, P11 
RUNeTIMEs 72 81 1 SECONDS 
CORE USED; 29K 
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